|
Private Sub cmdStartSearch_Click()
Call FindFile("yourFile", "C:\", False)
Unload frmSearch
End Sub
Private Sub FindFile(target As String, ByVal aPath As String, foundTarget As Boolean)
Dim myFileSystemObject As FileSystemObject, curFolder As folder, folder As folder
Dim folColl As Folders, file As file, fileColl As Files
Set myFileSystemObject = New FileSystemObject
Set curFolder = myFileSystemObject.GetFolder(aPath)
Set folderList = curFolder.SubFolders
Set fileList = curFolder.Files
For Each file In fileList
If file.name = target Then
foundTarget = True
frmFileSystem.lblPath.Caption = file.Path
Exit Sub
End If
Next
If Not foundTarget Then
For Each folder In folderList
DoEvents 'Yield execution so other events may be processed
If Not foundTarget Then
FindFile target, folder.Path, foundTarget
End If
Next
End If
Set myFileSystemObject = Nothing
Set curFolder = Nothing
Set folderList = Nothing
Set fileList = Nothing
End Sub
|