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

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

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

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

создать кнопку с именем = browseButton создать список файлов с именем = List1

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

и код должен выглядеть так

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 очень сложно: 'Просто получите местоположение всех файлов проекта .frm, сохраненных в каталоге вашего диска / проекта

Dim CountVal как целое число 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