Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Find a file

Sub findFile()    With Application.fileSearch         .NewSearch         .LookIn = "c:\"         .FileName = "mydb.mdb"         .SearchSubFolders = True             If .Execute() > 0 Then                MsgBox "The file " & .FoundFiles(1) & " was found"              Else                 MsgBox "The file is not found"             End If     End With End Sub