VB问题：如何读取、返回某一目录下的所有文件名？

控件：按钮一个 列表框一个 Function SearchFiles(Path As String, FileType As String)
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As StringsPath = Dir(Path & FileType) '查找第一个文件Do While Len(sPath) '循环到没有文件为止
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
List1.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
LoopsPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹Do While Len(sPath) '循环到没有文件夹为止
If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
LoopFor c = 1 To b '使用递归方法，遍历所有目录
SearchFiles Folder(c), FileType
NextEnd FunctionPrivate Sub Command1_Click() '调用
SearchFiles "e:\", "*.*"
End Sub

FileName = App.Path + "\" + "E:\data.a"这个语句有错误app.path表示与程序在一个目录的文件后面直接加上文件名或者以后的路径名例如你把该程序保存到c\vb\1.vbp那么app.path就代表c\vb Line Input #1, s1应该改写成输出，不是输入，是把文件里面的数据给s1然后通过后面的语句赋值给text.text

看一下是不是这样？窗体上加驱动器列表框、目录列表框和文件列表框Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub Private Sub Form_Click()
For i = 0 To File1.ListCount
a = File1.List(i)
Print a
Next i
End Sub Private Sub Form_Load()
Drive1.Drive = "e:\"
End Sub
不一定对，仅供参考！！