Suche Datei mit "test*.txt"

23/02/2010 - 23:55 von Thom | Report spam
Hallo liebe NG

Ich hab da ein Scribt. Nun hab ich im gleichen Verzeichnis wie mein Excel
File eine Datei "Test*.txt". Beim * kann jeweils eine andere Zahl oder
Buchstaben kommen. Also wenn das File Test[irgendwas].txt nicht vorhanden
ist stoppe.

Dim fso
Dim impfile As String
impfile = "test1.txt"
Set fso = CreateObject("Scripting.FilesystemObject")
If Not fso.FileExists(impfile) Then

MsgBox "file " & impfile & " existiert nicht"
end sub

Else
MsgBox "file " & impfile & " existiert!"

End If

Wie krieg ich den Platzhalter in meine Abfrage rein?

Danke im Voraus.

Gruss Thom
 

Lesen sie die antworten

#1 Peter Schleif
24/02/2010 - 07:12 | Warnen spam
Thom schrieb am 23.02.2010 23:55 Uhr:

Set fso = CreateObject("Scripting.FilesystemObject")
If Not fso.FileExists(impfile) Then



FileExists unterstützt keine Platzhalter. Hier drei alternative
Lösungsansàtze:

1. Dir(). Siehe Excel-Hilfe. Wenn Dir("test*.txt") einen leeren String
liefert, gibt es keine passende Datei.

2. Copy() aus der Excel-Hilfe oder CopyFile() des FileSystemObjects.
Wenn diese Funktionen einen Fehler liefern, existiert keine passende Datei.

3. Wenn die Anzahl möglicher Platzhalter begrenzt ist, könntest Du
deinen Original-Code in eine For-Next-Schleife packen und nacheinander
alle Dateinamen prüfen.

Peter

Ähnliche fragen