Hilfe
CloseDir
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
CloseDir verzeichnis
Parameter
verzeichnis |
Identität, die mit ReadDir![]() |
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, CreateDir, CurrentDir, DeleteDir, ReadDir, CloseFile, MoreFiles, NextFile

