Hilfe zu FileSearch-Objekt
16.12.2003 09:35:25
Hannes
ich habe ein mittlegroßes Problem. Im Rahmen eines Tools stelle ich dem Anwender die Möglichkeit zur Verfügung Berechnungen in Excel-Dateien zu speichern. Eine Abfrage soll überprüfen, ob eine Date des gewählten Namens (= nameneu im Code) bereits existiert. Folgenden Code habe ich geschrieben:
With Application.FileSearch
.NewSearch
.LookIn = pfad
.Filename = nameneu + ".xls"
.FileType = msoFileTypeExcelWorkbooks
.MatchTextExactly = True
If .Execute() > 0 Then 'Wenn Datei existiert
...... hier kommt anderer Code
Else: 'Wenn Datei nicht exisiert, dann neu anlegen
dateianlegen pfad, nameneu, toolname
End If
End With
Suche ich nun nach einer Datei mit Namen Test.xls und existieren im selben Ordner auch Test1.xls und Test2.xls so ist der Wert von Execute immer > 0, auch wenn Test.xls nicht existiert.
Gibt es eine Möglichkeit nur nach Test.xls zu suchen? Ich dachte mit .MtachTextExcactly wäre das abgedeckt.
Hat jemand eine Lösung???
Vielen Dank vorab,
Hannes