gibbo1715
09-23-2005, 04:40 AM
BAck Again
Can anyone tell me if it is possible using the application.filesearch so display the files being searched (i.e. progress) in a label as below please
Dim i As Integer
Dim szSearchWord As Variant
Dim sFollder As String
Dim MyPath, NodeName, parent As String
Dim n, k As Integer
sFollder = GetFolderPath
If sFollder = vbNullString Then
Exit Sub
Else
szSearchWord = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)
If szSearchWord = False Then
Exit Sub
End If
With Application.FileSearch
.NewSearch
.LookIn = sFollder
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.TextOrProperty = szSearchWord
.Execute
' MsgBox "There were " & .FoundFiles.Count & " file(s) found."
Thankyou for looking
Gibbo
Can anyone tell me if it is possible using the application.filesearch so display the files being searched (i.e. progress) in a label as below please
Dim i As Integer
Dim szSearchWord As Variant
Dim sFollder As String
Dim MyPath, NodeName, parent As String
Dim n, k As Integer
sFollder = GetFolderPath
If sFollder = vbNullString Then
Exit Sub
Else
szSearchWord = Application.InputBox("What are you looking for ?", "Search", , 100, 100, , , 2)
If szSearchWord = False Then
Exit Sub
End If
With Application.FileSearch
.NewSearch
.LookIn = sFollder
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.TextOrProperty = szSearchWord
.Execute
' MsgBox "There were " & .FoundFiles.Count & " file(s) found."
Thankyou for looking
Gibbo