Hilfe
NextFile
Aufruf
Parameter
Rückgabewert
Beschreibung
Beispiel
Siehe auch
Datei$ = NextFile$ (Verzeichnis)
Parameter
| Verzeichnis |
Identität eines Verzeichniszugriffs (ermittelt mit ReadDir )
|
Rückgabewert
String mit einem Verzeichniseintrag
Beschreibung
Diese Dateifunktion ermittelt den nächsten Dateieintrag aus einem Verzeichnis. Bevor man diesen Befehl anwenden kann, muss man zuerst ReadDir ausführen. ReadDir liefert dann eine Identität, die mit diesem Befehl verwendet werden kann.
Es gibt keine Möglichkeit einen vorherigen Dateieintag zu ermitteln. Alle mit NextFile eingelesenen Einträge sollen deshalb in ein Datenfeld (siehe Dim) eingelesen werden. Beachte auch, dass die Einträge unsortiert ausgelesen werden. Um zu ermitteln, ob dieser Eintag eine Datei oder ein Ordner ist, muss man FileType benutzen. Wird nur ein leerer String zurückgeliefert, so gab es keine weiteren Dateien in diesem Verzeichnis. Benutze danach CloseDir, um den Zugriff auf ein Verzeichnis zu beenden.
) eingelesen werden. Beachte auch, dass die Einträge unsortiert ausgelesen werden. Um zu ermitteln, ob dieser Eintag eine Datei oder ein Ordner ist, muss man FileType benutzen. Wird nur ein leerer String zurückgeliefert, so gab es keine weiteren Dateien in diesem Verzeichnis. Benutze danach CloseDir, um den Zugriff auf ein Verzeichnis zu beenden. Beispiel
Standardbeispiel:
;Dieses Programm zeigt den Dateiinhalt im Verzeichnis C:\
Verz = ReadDir("C:\")
Repeat
i = i + 1
Datei$ = NextFile$(Verz)
If Datei$ = "" Then Exit
If FileType("C:\" + Datei$) = 2 Then
Text 0, i * 10, "Ordner:" + Datei$
Else
Text 0, i * 10,"Datei:" + Datei$
End If
Forever
CloseDir Verz
Print
Print "-Ende-"
Verz = ReadDir("C:\")
Repeat
i = i + 1
Datei$ = NextFile$(Verz)
If Datei$ = "" Then Exit
If FileType("C:\" + Datei$) = 2 Then
Text 0, i * 10, "Ordner:" + Datei$
Else
Text 0, i * 10,"Datei:" + Datei$
End If
Forever
CloseDir Verz
Print "-Ende-"
Siehe auch
Datenverwaltung Dateien & Streams
2D Grafik
Datenverwaltung