Desktop Management Scripting Language › Functions › File System Functions › FindClose - Close a Find Operation

FindClose - Close a Find Operation

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

The FindClose function closes a find operation.

This file content function has the format:

FindClose(Handle as Integer) as Boolean

handle

Identifies the handle of the find operation to be closed.

On successful completion, the function returns TRUE; otherwise, it returns FALSE.

Example: FindClose function

This example recursively lists the contents of directories passed as arguments.

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

More Information:

FindFirstFile - Search for Files in a Directory