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.

Cette fonction de contenu de fichier présente le format suivant :

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, sinon elle renvoie False.

Exemple : Fonction FindClose

Cet exemple répertorie de façon récursive le contenu des répertoires passés en tant qu'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("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