PDA

View Full Version : Sleeper: Display files being searched



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

Airborne
09-23-2005, 10:00 AM
Hi Gibbo,

Not sure if this is what you mean but you migh want to look at this post http://www.vbaexpress.com/forum/showthread.php?t=1200. It's a bit long but it might put you on the right track.

Regards,

Rob.