Поиск файлов - VB6

Question

Мне нужно найти указанный файл, например.«searchme.txt» в каталоге «C: / searchfolder /», папка содержит несколько каталогов и файлов в ней - как я могу найти в этой папке «searchme.txt» и вернуть результаты в список?

Ранее пытался получить исходные файлы, но не дал результатов:

Private Sub SearchFolder(srcFol As String)

   Dim fld As Folder, tFld As Folder, fil As File

   Set fld = fso.GetFolder(srcFol)
   If fld.Files.Count + fld.SubFolders.Count > 0 Then
      For Each fil In fld.Files
        list1.AddItem fso.BuildPath(fld.Path, fil.Name)
      Next
      For Each tFld In fld.SubFolders
         If tFld.Files.Count + tFld.SubFolders.Count > 0 Then
             SearchFolder tFld.Path
         End If
      DoEvents
      If m_SearchRunning = False Then
           Exit Sub
      End If
      Next
   End If

End Sub

Answer 1

Вам нужно объявить fso, он не устанавливается автоматически, добавив ссылку

Добавьте это в первую строку в Sub

Dim fso As New FileSystemObject

Чтобы добавить толькоэлементы, соответствующие имени файла:

 For Each fil In fld.Files
    If fil.Name = "searchme.txt" Then
        list1.AddItem fso.BuildPath(fld.Path, fil.Name)
    End If
 Next