ファイル検索 - VB6

Question

指定したファイルを検索する必要があります。ディレクトリ "C：/ searchfolder /"内の "searchme.txt"、フォルダ内に複数のディレクトリとファイルがあります - どのように "searchme.txt"のフォルダを検索し、結果をリストボックスに戻すことができますか？

は以前に初期ファイルを取得するには、これを試してみました、が、結果が返されなかった：あなたはfsoを宣言する必要が

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

、それが参照

を追加することによって、自動的に設定されませんにこれを追加しますファイル名のみに一致する項目を追加するにはサブ

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