Langage de script Desktop Management › Fonctions › Fonctions du système de fichiers › FindNextFile – Poursuivre l'analyse de répertoire FindFirstFile

FindNextFile – Poursuivre l'analyse de répertoire FindFirstFile

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

La fonction FindNextFile poursuit une analyse de répertoire.

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

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

findHandle

Identifie le descripteur renvoyé de FindFirstFile.

filename

Identifie le paramètre de sortie qui contient le nom du fichier trouvé.

La fonction renvoie la valeur 1 si un fichier a été trouvé, et la valeur 0 si aucun autre fichier ne peut être trouvé.

Exemple : Fonction FindNextFile

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