txt datei mit mekro öffnen
18.03.2009 14:12:06
F
mit diesem code öffne ich txt Dateien.
MsgBox "bitte graph Datei auswählen"
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "i:\temp"
If Fso.FolderExists(Ordnername) = True Then
ChDrive ("i")
ChDir ("i:\temp")
Else
ChDrive ("c")
ChDir "C:\"
End If
sFiles = "txt Files (*.txt), *.,"
var = Application.GetOpenFilename(sFiles)
If var = False Then
MsgBox "keine Datei angewählt"
Exit Sub
End If
Nun bekomme ich aber alle txt Dateien angezeigt.
Ist es möglich mir nur die Dateien anzeigen zu lassen die graph xxxx.txt heißen?
Wobei xxxx Zahlen von 0000 bis 9999 sind.
graph 0000.txt
graph 0001.txt
graph 0002.txt
graph 0003.txt, usw
Gruß
Frank