f = DirectoryItems(d$)
Siehe Generische Version der For-Anweisung für Details.
Die Tabelle, die von DirectoryItems()
als zweiter Rückgabewert
zurückgegeben wird, wenn sie in einer generischen For-Schleife
verwendet wird, werden die folgenden Tags initialisiert:
Type:
#DOSTYPE_FILE
, wenn der Eintrag eine Datei ist oder
#DOSTYPE_DIRECTORY
, falls der Eintrag ein Verzeichnis ist.
Size:
Flags:
Time:
LastAccessTime:
CreationTime:
Comment:
Beachten Sie, dass Sie alle Dateien und Unterverzeichnisse innerhalb
eines Verzeichnisses auch manuell durchlaufen können, indem
Sie die Befehle OpenDirectory(), NextDirectoryEntry()
und CloseDirectory() benutzen. Die Verwendung von DirectoryItems()
ist
jedoch oft bequemer.
Siehe auch CountDirectoryEntries().
Function p_TraverseDir(d$, indent) For s$,t In DirectoryItems(d$) DebugPrint(RepeatStr(" ", indent) .. s$, t.time) If t.type = #DOSTYPE_DIRECTORY p_TraverseDir(FullPath(d$, s$), indent + 8) EndIf Next EndFunction p_TraverseDir("images", 0)Die Funktion
p_TraverseDir()
kann rekursiv alle Dateien und
Unterverzeichnisse im angegebenen Verzeichnis ausgeben. Der
Beispielaufruf gibt den Inhalt eines Verzeichnisses mit dem
Namen "images" aus, das relativ zum Pfad des Skripts gespeichert
werden muss.