我有一大堆.doc 和 .txt文档，放在了D:\doc文件夹下，我想要实现的功能是：
我点击窗体上的“浏览”按钮，D:\doc 下的所有.doc,.txt文档的名字全部在
listbox中列出，然后我在listbox中点击相应的文件名自动用word打开。
不要代码，只求朋友们帮帮忙想个解决的办法！感谢……

你用FILELIST DIRLIST 还有DRIVELIST 再加一个双击事件就搞定了啊。

给你写了一个例子

cBjJZTT4.rar (2.1 KB) [求助]浏览功能

热心人啊 ，还特意为我做了个例子！万分感谢 ！

我看了一下，如果只有.txt文件，运行出错，说下标越界！

修改部分
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim i As Integer
If Trim(Text1.Text) = vbNullString Then Exit Sub
If Right(Text1.Text, 1) <> "\" Then Text1.Text = Text1.Text & "\"
If Dir$(Trim$(Text1.Text), vbDirectory) = "" Then Exit Sub
If GetFileList(Trim$(Text1.Text), a, "*.doc") Then
For i = LBound(a) To UBound(a)
List1.AddItem a(i)
Next
End If
If GetFileList(Trim$(Text1.Text), b, "*.txt") Then
For i = LBound(b) To UBound(b)
List1.AddItem b(i)
Next
End If
End Sub

还是那样，for循环有问题

不可能,我这里是OK的....

谢谢这位兄弟，辛苦了！

多几个像你这样的热心人，论坛的明天会更美好！！