Desktop Management Scripting › Desktop Management Scripting Language › Functions › File System Functions › FindNextFile - Continue FindFirstFile Directory Scan

FindNextFile - Continue FindFirstFile Directory Scan

Valid on NetWare, Symbian OS, UNIX, Windows and Windows CE

The FindNextFile function continues a directory scan.

Function format:

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

findHandle

Identifies the handle returned from FindFirstFile.

filename

Identifies an output parameter that contains the name of the file that has been found.

The function returns a value of 1 if a file was found and a return value of 0 if no more files can be found.

Example:

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
		Repeat
			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
	Exit
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