如何使用VB6获取目录中所有文件名的列表？

Question

VB6循环遍历指定文件夹目录中的所有文件并获取其名称的最简单方法是什么？

Answer 1

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

Answer 2

Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Set fld = fso.GetFolder("C:\My Folder")
For Each fil In fld.Files
  Debug.Print fil.Name
Next
Set fil = Nothing
Set fld = Nothing
Set fso = Nothing

Answer 3

DJ 的解决方案简单而有效，如果您需要 FileSystemObject 可以提供的更多功能（需要对 Microsoft Scripting Runtime 的引用），只需丢弃另一个解决方案。

Dim fso As New FileSystemObject
Dim fil As File

For Each fil In fso.GetFolder("C:\").Files
  Debug.Print fil.Name
Next