Desktop Management Scripting-Sprache › Funktionen › Funktionen für das Dateisystem › FindNextFile - Fortsetzen eines mit FindFirstFile begonnenen Verzeichnis-Scans

FindNextFile - Fortsetzen eines mit FindFirstFile begonnenen Verzeichnis-Scans

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

Die Funktion "FindNextFile" dient zur Fortsetzung eines Verzeichnis-Scans.

Funktionssyntax:

FindNextFile(findHandle as Integer, filename as String) as Integer

findHandle

Gibt das Handle an, das von FindFirstFile zurückgegeben wurde.

filename (Dateiname)

Gibt einen Ausgabeparameter an, der den Namen der gefundenen Datei enthält.

Die Funktion gibt den Wert 1 zurück, wenn eine Datei gefunden wurde, und den Wert 0, wenn keine weiteren Dateien gefunden wurden.

Beispiel:

Function contents(root as string) As Boolean
	Dim fileName As String
	Dim iHandle As Integer
	Dim rootRoot As String
	
	rootRoot = Mid(root, 0, len(root)-1)
	iHandle = FindFirstFile(root, fileName)) Then
	If iHandle = 0 Then
		Print("No files found at """ + root + """")
	Else
		Wiederholen
			If Is_Dir(rootRoot + fileName) Then
				Print("""" + rootRoot + fileName + """ is a directory")
				if Not(fileName = ".") AND Not(fileName = "..") Then
					contents(rootRoot + fileName + "\*")
				End If
			Else
				Print("""" + rootRoot + fileName + """ is a file")
			End If
		Until Not(FindNextFile(iHandle, fileName))

		FindClose(iHandle)
	End If
	contents = TRUE
End Function

Dim i As Integer
ClrScr()
if Argc() = 1 Then
	Beenden
End If
For i=1 To Argc()-1
	Print(NEWLINE$ + "Recursive List of """ + Argv(i) + """")
	Contents(Argv(i))
Next i

Invokation: dmscript sample.dms c:\* -w_dms