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

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

DJ简单而有效，只要在需要FileSystemObject提供的更多功能（需要参考Microsoft脚本运行时）时抛出另一个即可

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

---

创建名为browseButton的按钮 创建名称为List1的filelistbox

在设计中双击按钮

代码应该是这样的

Private Sub browseButton_Click()

Dim path  As String
path = "C:\My Folder"

List1.path() = path
List1.Pattern = "*.txt"
End Sub

---

现在完成运行它

您可以使用以下演示代码

Dim fso As New FileSystemObject
Dim fld As Folder
Dim file As File
Set fld = fso.GetFolder("C:\vishnu")
For Each file In fld.Files
  msgbox file.Name
Next

“对于VB6，非常棘手： '只需获取保存在磁盘/项目目录中的所有project.frm文件的位置

Dim CountVal作为整数 CountVal=0 国会广播局，完毕

sFilename = Dir(App.Path & "\Forms\")
Do While sFilename > ""
  If (Right(sFilename, 4) = ".frm") Then
  cbo.List(CountVal) = Left(sFilename, (Len(sFilename) - 4))
  CountVal = CountVal + 1
  End If

   sFilename = Dir()
Loop

---

该死，快告诉我：P有一篇MSDN文章可供参考：

Dim fso As New FileSystemObject
Dim fld As Folder
Dim file As File
Set fld = fso.GetFolder("C:\vishnu")
For Each file In fld.Files
  msgbox file.Name
Next

sFilename = Dir(App.Path & "\Forms\")
Do While sFilename > ""
  If (Right(sFilename, 4) = ".frm") Then
  cbo.List(CountVal) = Left(sFilename, (Len(sFilename) - 4))
  CountVal = CountVal + 1
  End If

   sFilename = Dir()
Loop