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

Question

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

Answer 1

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

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

Answer 3

DJ's решение простое и эффективное, просто выбрасываете другое, если вам нужно немного больше функциональности, которую может предоставить 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 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

Answer 5

Вы можете использовать следующий демонстрационный код,

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

Answer 6

кнопка создания с именем = browseButton создать filelistbox с именем = List1

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

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

Private Sub browseButton_Click()

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

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

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