Manuel du 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.

Format de la fonction :

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

findHandle

Identifie le descripteur renvoyé de FindFirstFile.

nom_fichier

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 :

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