Application.FileSearch findet meine Datein nicht!
04.02.2004 12:06:36
Robert-online
Wer kann mir weiterhelfen.
Ich habe eine Funktion programmiert, die mir bestimmte Dateien suchen soll:
Wenn ich das Prog unter Windows 2000 mit Excel 2000 laufen lasse funktioniert das ganze. Wenn ich aber das Prog unter Win98 und Excel97 laufen lasse findet
Das Programm keine Dll Dateien. Mit z.B. .txt Dateien funktioniert es aber.
Danke für Eure Hilfe
Robert
Der Quellcode
Dateien(0) = ""
'Suchsfunktion belegen
With Application.FileSearch
.NewSearch
.Filename = "*.dll" 'Dateiname
.LookIn = "C:\" 'Dateipfad
.SearchSubFolders = mitUnterordner
.FileType = msoFileTypeAllFiles
.MatchTextExactly = True
.Execute
'wenn ergebnisse gefunden in variable speichern
If .FoundFiles.count <> 0 Then
For I = 0 To .FoundFiles.count - 1
ReDim Preserve Dateien(I)
Dateien(I) = .FoundFiles.Item(I + 1)
Next I
End If
End With