Modifier une procedureRésolu

Question

Bonjour a tous; Voila je recherche comment peu t'on faire un scan de repertoire vide ou est t'il posible de modifier cette procedure pour quel n'affiche que les chemins des repertoires vide procedure Lucifer_Scan( Chemin : string ); var NbFichier : Integer; Fichier : TSearchRec; begin { Insert barre oblique a la fin du chemin si elle existe pas } Chemin := IncludeTrailingPathDelimiter( Chemin ); { On recherche dans : faAnyFile : Tout dossier + Tout fichier : *.* } NbFichier := FindFirst( Chemin + '*.*' , faAnyFile , Fichier); if ( NbFichier = 0 ) then begin repeat { On élimine les dossiers qui son = a "." et ".." } if ( ( Fichier.Name <> '.' ) and ( Fichier.Name <> '..' ) ) then begin if ( ( Fichier.Attr and faDirectory ) <> faDirectory ) then { Insert le chemin est le nom du fichier } Form1.ListBox1.Items.Add( Chemin + Fichier.Name ) else { Chercher dans le sous-dossier } Lucifer_Scan( Chemin + Fichier.Name ); end; { On passe au suivant si <> 0 } until ( FindNext( Fichier ) <> 0 ); end; { On ferme la recherche } SysUtils.FindClose( Fichier ); end; Merci de votre reponse, http://programmationdelphi.info/

cs_Jean_Jean · Accepted Answer

Salut,

   Un truc tout bête qui me vient, tu met un compteur dans ta boucle.
En sortie, tu teste s'il est égal à zéro, c'est que ton répertoire est vide...

Yo!

Jean_Jean

Modifier une procedure

1 réponse

Votre réponse

Discussions similaires