Как получить список всех имен файлов в каталоге с помощью VB6?

Question

Каков самый простой способ в VB6 перебрать все файлы в указанном каталоге папки и получить их имена?

Answer 1

sFilename = Dir(sFoldername) 

Do While sFilename > "" 

    debug.print sFilename 
    sFilename = Dir() 

Loop 

Answer 2

диджеев solution является простым и эффективным, просто выбрасывая другой в случае, если нужно немного больше функциональных возможностей, что 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 

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 с именем создания = List1

двойной щелчок по кнопке в дизайне

и код должен выглядеть следующим образом

Private Sub browseButton_Click() 

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

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

теперь его запустить