Manuel du langage de script Desktop Management › Fonctions › Fonctions du système de fichiers › FindClose : Fermer une opération Find

FindClose : Fermer une opération Find

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction FindClose ferme une opération de recherche.

Format de la fonction :

FindClose(Handle as Integer) as Boolean

descripteur

Identifie le descripteur de l'opération de recherche à fermer.

En cas de réussite, la fonction renvoie TRUE (Vrai), sinon elle renvoie FALSE (Faux).

Exemple :

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("Aucun fichier n'a été trouvé dans """ + racine + """")
	Else
		Repeat
			If Is_Dir(rootRoot + fileName) Then
				Print("""" + rootRoot + fileName + """ est un répertoire")
				if Not(fileName = ".") AND Not(fileName = "..") Then
					contents(rootRoot + fileName + "\*")
				End If
			Else
				Print("""" + rootRoot + fileName + """ est un fichier")
			End If
		Until Not(FindNextFile(iHandle, fileName))

		FindClose(iHandle)
	End If
	contents = True
End Function

Dim i As Integer
ClrScr()
if Argc() = 1 Then
	quitter
End If
For i=1 To Argc()-1
	Print(NEWLINE$ + "Liste récursive de """ + Argv(i) + """")
	Contents(Argv(i))
Next i

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

Informations complémentaires :

FindFirstFile : Rechercher des fichiers dans un répertoire