Microsoft Office Tutorials and References
In Depth Information
9.2 Arbeiten mit Dateien
MsgBox "Datei test.txt nicht gefunden"
End If
End Sub
Zur Erläuterung:
Die Funktion Dir() liefert den Namen einer Datei, der dem angege-
benen Suchmuster entspricht. Dabei können Sie auch Platzhalter für
einzelne Zeichen ( ? ) oder mehrere Zeichen ( * ) verwenden.
Suche mit
Platzhalter
Im vorliegenden Beispiel wurde nach einem bestimmten Dateina-
men, ohne Platzhalter, gesucht. Der Rückgabewert ist entweder der
Name der Datei (falls sie existiert) oder eine leere Zeichenkette (falls
die Datei nicht existiert).
Mit Hilfe der zweiten Anwendung wird eine Liste aller Dateien, die
einem bestimmten Suchmuster entsprechen, ausgegeben:
Sub DateiListe()
Dim DateiName As String
Dim Ausgabe As String
' Suche mit Suchmuster
DateiName = Dir(ThisWorkbook.Path & "\*.txt")
Ausgabe = ""
Do While DateiName <> ""
Ausgabe=Ausgabe&""&DateiName
' Suche mit ursprünglichem Suchmuster
DateiName = Dir
Loop
MsgBox Ausgabe
End Sub
Abbildung 9.9 zeigt das Ergebnis.
Abbildung 9.9
Liste der gefundenen Dateien
Search JabSto ::




Custom Search