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

Question

VB6中最簡單的方法是循環遍歷指定文件夾目錄中的所有文件並獲取其名稱？

Answer 1

sFilename = Dir(sFoldername) 

Do While sFilename > "" 

    debug.print sFilename 
    sFilename = Dir() 

Loop 

Answer 2

DJ的solution是簡單而有效的，只是拋出一個又一個的情況下，你需要一點點更多的功能是FileSystemObject對象可以提供（需要Microsoft腳本運行的引用）。

Dim fso As New FileSystemObject 
Dim fil As File 

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

Answer 3

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 4

創建名稱= browseButton 創建名稱FileListBox中鍵=列表1

設計

和代碼按鈕

雙擊應該是這樣的

Private Sub browseButton_Click() 

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

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

現在完成運行它