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

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

7
directory file vb6

6 ответов

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop
15
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
10

ди-джеев решение прост и эффективен, просто выбрасывая еще один, если вам нужно немного больше функциональности, которую может предоставить FileSystemObject (требуется ссылка на среду выполнения сценариев Microsoft).

Dim fso As New FileSystemObject
Dim fil As File

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

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

дважды нажмите на кнопку в design

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

Private Sub browseButton_Click()

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

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

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

0

вы можете использовать следующие демо-код,

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
0

'для VB6 очень сложно: - Просто выясните местоположение всего проекта .файлы frm, сохраненные в каталоге диска/проекта

Dim CountVal Как Целое Число CountVal = 0 ООТ.Ясно!--2--> 

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
0