Application.Filesearch

[OnTheBeach]

Bit of a problem with application.filesearch.

Dim fs As FileSearch
....
Set fs = Application.FileSearch
fs.FileName = "*.*"
fs.SearchSubFolders = True
fs.NewSearch
fs.LookIn = "C:\Program files\Symantec\Act"
fs.Execute

jj = fs.FoundFiles.Count

For ii = 1 To jj
ff = fs.FoundFiles(ii)
Next ii

When I hit fs.filename = "*.*" (or any other string for that matter) I get a runtime error 5 invalid procedure call or argument.

The other properties works (i.e. newsearch etc - just this one.. Did a search thru object browser and it is there like all the other objects.

BTW - using Excel 97 on ME

 

[Scott Huish]

Hi, welcome to the board!

First off, I would put NewSearch first, but why not just use With? Also you don't do anything with the filenames it finds you just constantly overwrite the variable ff, what are you trying to do exactly?

Sub test2()
Dim ii As Long
With Application.FileSearch
    .NewSearch
    .Filename = "*.*"
    .SearchSubFolders = True
    .LookIn = "C:\Program files\Symantec\Act"
    If .Execute() > 0 Then
        For ii = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(ii)
        Next ii
    End If
End With
End Sub