ich habe folgendes Problem: Viele kennen bestimmt diese Hilfedatei:
Set fs = Application.FileSearch
With fs
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Mein Problem dabei ist, dass dieser Makroabschnitt bei mir nicht läuft. Ich bekomme immer einen Laufzeitfehler 5, d.h. ungültiger Prozeduraufruf. Was ich feststellen konnte, dass der Fehler durch die SortBy und SortOrder, speziell die "mso"-Anweisungen auftritt, da die Execute-Anweisung ohne Klammerinhalt bestens läuft.
Die FileType-Eigenschaft läuft auch nicht.
Was mache ich verkehrt?!
Besten Dank!!!,
Mike