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

Question

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

- Ray Vega

Answer 1

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

- DJ

---

真可惜，你抢先一步了 :P 这里有一个MSDN的参考文章： http://msdn.microsoft.com/zh-cn/library/aa262726(VS.60).aspx - Peter C.

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

- bigsancho

Answer 3

DJ的解决方案简单而有效，只是为了提供一种更多功能的方式，需要引用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

- raven

Answer 4

对于VB6来说，这个问题很棘手： 只需获取磁盘/项目目录中保存的所有项目.frm文件的位置即可。

Dim CountVal As Integer CountVal = 0 cbo.Clear

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

- Sajid Dewan

Answer 5

创建名称为browseButton的按钮

创建名称为List1的文件列表框

在设计中双击按钮

代码应该如下所示

Private Sub browseButton_Click()

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

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

完成了，现在运行它

- Janardhan G

Answer 6

您可以使用以下的演示代码：

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

- Codemaker