Vorheriges Thema: FindFirstFile - Suchen nach Dateien in einem VerzeichnisNächstes Thema: FindNextFile - Fortsetzen eines mit FindFirstFile begonnenen Verzeichnis-Scans


FindNext

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktion "FindNext" setzt einen Verzeichnis-Scan fort und sucht weitere Dateien, die ebenfalls den in "FindFirst" angegebenen Kriterien entsprechen. Bei jedem Aufruf von "FindNext" wird ein Dateiname zurückgegeben, bis in dem Verzeichnis keine weiteren entsprechenden Dateien gefunden werden.

Diese Dateiinhaltsfunktion hat das folgende Format:

FindNext() as string

Bei jedem Aufruf von "FindNext" wird ein Dateiname zurückgegeben. Wenn keine weiteren übereinstimmenden Dateien im Verzeichnis gefunden werden, wird eine leere Zeichenfolge ("") zurückgegeben.

Beispiel: Funktion "FindNext"

In diesem Beispiel werden alle Dateien gesucht und aufgelistet, die die Erweiterung "BAT" besitzen und sich im Stammverzeichnis des Laufwerks C: befinden.

Dim Filename as string

Filename=FindFirst("C:\*.BAT",FA_ANYFILE)
while Filename<>""
	 print Filename
	 Filename=FindNext()
wend