Rubrique précédente: FindFirstFile : Rechercher des fichiers dans un répertoireRubrique suivante: FindNextFile – Poursuivre l'analyse de répertoire FindFirstFile


FindNext

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

La fonction FindNext continue une analyse de répertoire et permet d'extraire les fichiers suivants qui satisfont aux critères donnés dans FindFirst. Un nom de fichier est renvoyé pour chaque appel FindNext, jusqu'à ce que plus aucun fichier correspondant ne soit trouvé dans le répertoire.

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

FindNext() as string

Chaque appel de FindNext renvoie un nom de fichier. Lorsqu'aucun autre fichier correspondant n'est trouvé dans le répertoire, elle renvoie une chaîne vide ("").

Exemple : Fonction FindNext

Cet exemple recherche et répertorie tous les fichiers avec l'extension .bat dans le répertoire racine du lecteur C: .

Dim Filename as string

Filename=FindFirst("C:\*.BAT",FA_ANYFILE)
while Filename<>""
	 print Filename
	 Filename=FindNext()
wend