FileSearch
31.10.2005 12:21:04
flyingsunbird
Implementierung: s.u.
Ich habe ein Problem mit der FileSearch Application.
Der Benutzer gibt einen Ordnerpfad, einen Datei-Stamm-Namen und
eine Dateiendung an.
Wenn ich nun prüfen möchte, ob es eine Datei gibt, die die Form
Stammname*.Endung hat werden auch Dateien der Form
Stammname*.Endung* gefunden.
Bsp:
Angenommen im Ordner befinden sich folgende Dateien:
Dateien: - peter.sum; peter1.sum; peter45.pat; peter1.par
(Also Stammname: peter) Endung soll .pa sein, eine Datei mit exakt
dieser Endung gibt es in diesem Fall nicht, bei meiner Implementierung
werden aber .pat und .par gefunden.
If Not (D_EndungPrinterdatei.Value = "") Then
Set Dateisuche = Application.FileSearch
With Dateisuche
.LookIn = OrdnerPfad.Value
.Filename = Stammname.Value & "*" & DateiEndung.Value
If Not (.Execute ("Grösser als") 0) Then
MsgBox ("Die Printerdatei " & _
C_StammnameRuntable.Value & D_EndungPrinterdatei.Value & _
" konnte nicht gefunden werden")
Exit Sub
End If
End With
end if