TurboPL Referenz FindFirstFile |
Top Previous Next |
Syntax FindFirstFile(Mask, AttrMask: String; var FileName: String; var FileSize: Integer; var FileDate: Date; var FileTime: Time; var Attr, Folder: String): Integer; Kategorie Beschreibung Sucht den ersten Verzeichniseintrag, der dem in Mask übergebenen Suchmuster und den Attributen in AttrMask übereinstimmt. Die Attribute in AttrMask bestimmen, welche Einträge zusätzlich zu den normalen Dateien gesucht werden sollen. Es ist eine Kombination aus den Datei-Attribut-Buchstaben, die weiter unten beschrieben sind. Ein Leerstring '' sucht also nur nach normalen Dateien, 'D' sucht nach normalen Dateien und Verzeichnissen. 'SH' sucht nach normalen Dateien, Systemdateien und versteckten Dateien usw. Das Ergebnis der Suche wird in den Parametern FileName bis Folder zurückgegeben:
Ist die Suche erfolgreich, wird 0 zurückgegeben, ansonsten ein negativer Fehlercode:
Um den nächsten Verzeichniseintrage zu lesen, benutzen Sie die Funktion FindNextFile. Wenn Sie auch den Inhalt von Unterverzeichnissen benötigen, müssen Sie FindFirstFile rekursiv aufrufen, wie im Beispiel unten gezeigt wird. Achtung FindFirstFile belegt Ressourcen, die durch einen Aufruf von CloseFindFile wieder freigegeben werden müssen. Datei-Attribute Die folgenden Buchstaben kennzeichnen die verschiedenen Datei-Attribute. Kombinationen dieser Buchstaben werden sowohl bei der Angabe von AttrMask als auch im Ergebnis als Attr verwendet. Dabei kommt es auf die Reihenfolge der Buchstaben im String nicht an:
Beispiel Der folgende Code schreibt den Inhalt des übergebenen Ordners inklusiv aller Unterverzeichnisse in die Datei content.txt. Dazu ruft man ListFolderContent mit dem gewünschten Ursprungsverzeichnis auf, z.B. ListFolderContent("C:\programme"): procedure WriteFolderContent(OutFile: Integer; Level: Integer; Folder: String);
procedure ListFolderContent(StartFolder: String); Siehe auch |