How to search for a filename in all subfolders 1

[Paco75]

Hi I got a Excel Marco. And I want to search a file ( a .exe) before running it. How can I do this?

thanks

 

[Zathras]

I assume by "search a file" you mean search to see whether it exists. (If you meant search inside the file for a particular sequence of characters, post again with more information.)

Check the help files for "FileSearch Object"

Here is an example (hope it helps):

Sub TEST()

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "Chess.zip"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
    
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If

End With

End Sub

 

[Paco75]

Yes This was exactly what I was looking for! Thanks a lot

 

[rmikesmith]

Zathras,

Thanks. I've tucked this one away for future reference. A simple bit of code but quite handy. Worth a star to me.

I seem to forget about the FSO; haven't used it much to date, but am trying to break out of my fossilized way of doing things.


Regards,
Mike