Seit den gestrigen Word 2003-Updates funktioniert bei mir unter WinXP die Methode "Execute" im Word-VBA "FileSearch"-Objekt nicht mehr. Hat jemand Ähnliches erlebt oder kann das mal nachprüfen?
Ich meine z. B. folgenden Code (etwas abgewandelt aus den VBA-Beispielen):
With Application.FileSearch
.FileName = "99*.*"
.LookIn = "C:\My Documents"
.Execute
'Hier wird komischerweise immer 0 ausgegeben:
MsgBox .FoundFiles.Count
'Das funktioniert dann natürlich auch nicht:
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
End With
.FoundFiles.Count liefert bei mir seit gestern immer 0, auch wenn die gesuchte Datei ganz sicher und auf jeden Fall existiert. Bis zu den gestrigen Updates lieferte .Execute immer die korrekte Anzahl der gefundenen Dateien. Was ist los?