小问题帮大忙？？难。。难。。难。。请教高手！！

[goldstar3000]

怎么在在我的程序中，将一个文件夹内的所有程序，包括（快捷方式），读取到我其中的一个菜单中，
谢谢!

[lwm1977]

遍历(好像有个叫File什么的函数能够遍历文件名称)
添加

[askwho]

用dir命令进行递归调用，然后把所有的文件名都取出来放到一个列表中，再从这个列表中读取字符串，作为菜单的名称。

至于如何使用dir命令进行递归，可以查看msdn，也可以搜索本论坛，有一个非常详细的例子。

[askwho]

给你一个例子

Filename=dir("c:\windows\")
do while Filename<>""
if instr(strFilename,".")<>0 then '判断是否文件
...............
end if
strFilename=dir
loop

[goldstar3000]

我也知道用dir可以。但我试了不行，我只能读取，全文件路径。
直说吧，我想将ie收藏夹里的，装载到我的菜单里。
请给出详细代码。谢谢

[01order]

同意

[goldstar3000]

我的代码：

Private Sub Form_Load()
Dim filename, strfilename
Dim x
filename = Dir("c:\windows\")
Do While filename <> ""
If InStr(strfilename, ".") <> 0 Then '判断是否文件
x = ListView1.ListItems.Add(1, , , 1, 1)
End If
strfilename = Dir'出错的地方
Loop

End Sub

[goldstar3000]

有没有其它更好的办法，请给代码

[goldstar3000]

小第用这个方法解得：

Option Explicit

Private Sub Command1_Click()
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim i As Integer

ListView1.ListItems.Remove 1
End Sub

Private Sub Form_Load()
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim i As Integer
Dim MyFile, MyPath, MyName
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = ""
clmX.Width = 500
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = "中文名称"
Set clmX = ListView1.ColumnHeaders.Add()
clmX.Text = "网址"
clmX.Width = 6000
'添加 10 个具有相同图标的项目到列表中



MyPath = "C:\WINDOWS\Favorites\*.url" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "" Then
' 使用位比较来确定 MyName 代表一目录。
Set itmX = ListView1.ListItems.Add()
itmX.SmallIcon = 1
itmX.Text = ""
itmX.SubItems(1) = Left(MyName, 6)
itmX.SubItems(2) = MyName
End If
MyName = Dir
Loop
End Sub