如何获得指定的文件夹下的所有文件的name

Dim strPath As String

strPath = Dir("d:\", vbDirectory) 'dir函数遍历d：下的所有文件

Do

If strPath <> vbNullString Then ’当读取到文件名不为空时执行下面代码

Print strPath ，窗体打印输出d：下的所有文件名称

Else

Exit Do 退出do循环

End If

strPath = Dir() 执行下一次dir（这是dir函数的写法，这里就不需要路径）

Loop

这个方法可以得到所有的文件名（包括子目录下的），并把文件名保存在C:\a.txt文件中
Private Sub Form_Load()
Open "C:\a.txt" For Output As #1
Find "C:\Program Files\"
Close #1
End Sub

Sub Find(Path As String)
Dim TheName As String, DirName() As String
Dim DirNum As Integer, i As Integer
TheName = Dir(Path, vbDirectory)
DirNum = 0
Do
If TheName <> "" And TheName <> "." And TheName <> ".." Then