Searching for File

[paralinx]

Hi all,

I need to search for a file in a folder. I found a ton of code for this doing a quick search but I must be tired or something because I can't put two and two together. I need to search about 50 folders which the paths are located in a list box (app.path & list1.list(0, 1, 2... 50).

Can someone help me out with this one?

[Andrew G]

I haven't tested this 100% but it should work (i think)

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Command1_Click()
    Dim tempStr As String, Ret As Long
    'create a buffer string
    tempStr = String(MAX_PATH, 0)
    'returns 1 when successfull, 0 when failed
    For x = 0 To List1.ListCount - 1
        Ret = SearchTreeForFile(List1.List(x), "myfile.ext", tempStr)
        If Ret <> 0 Then
            Debug.Print "Located file at " + Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
        Else
            Debug.Print "File not found in " & List1.List(x)
        End If
    Next
 
End Sub