Hilfe
CloseDir
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
CloseDir verzeichnis
Parameter
| verzeichnis |
Identität, die mit ReadDir ermittelt wurde
|
Rückgabewert
-
Beschreibung
Diese Anweisung schließt den Zugriff auf ein Verzeichnis, welches mit ReadDir geöffnet wurde. Das Öffnen eines Verzeichnisses ist zum Auslesen von Dateinamen gedacht. Benutze NextFile, um die Dateinamen auszulesen. Mit FileSize und FileType können weitere Informationen ermittelt werden.
Gute Programmierer, die saubere Programme schreiben wollen, benutzen nach dem Auslesen immer diesen Befehl - alle anderen lassen den weg ;-)
Beispiel
Durchsucht einen Ordner auf der Festplatte und schreibt alle Dateien und Ordner auf:
neues_verzeichnis$="C:\" ; Der Name des zu durchsuchenden Verzeichnises
Verz=ReadDir(neues_verzeichnis$) ; Laden des Verzeichnisses zum Durchsuchen
Repeat
Datei$=NextFile$(Verz) ; Dateien im Verzeichnis durchgehen
If Datei$="" Then Exit ; Ende des Verzeichnisses erreicht ?
If FileType(neues_verzeichnis$+Datei$) = 2 Then ; Ist die Datei ein Ordner?
Print "Ordner:" + Datei$
Else
Print " Datei:" + Datei$
End If
Forever
CloseDir Verz ; Ordner schließen
Print
Print "-Ende-"
Verz=ReadDir(neues_verzeichnis$) ; Laden des Verzeichnisses zum Durchsuchen
Repeat
Datei$=NextFile$(Verz) ; Dateien im Verzeichnis durchgehen
If Datei$="" Then Exit ; Ende des Verzeichnisses erreicht ?
If FileType(neues_verzeichnis$+Datei$) = 2 Then ; Ist die Datei ein Ordner?
Print "Ordner:" + Datei$
Else
Print " Datei:" + Datei$
End If
Forever
CloseDir Verz ; Ordner schließen
Print "-Ende-"
Siehe auch
ChangeDir, CloseFile, CreateDir, CurrentDir, DeleteDir, MoreFiles, NextFile, ReadDir
Datenverwaltung Dateien & Streams
2D Grafik
Datenverwaltung