Modifier une procedure

[Résolu]
Signaler
Messages postés
68
Date d'inscription
jeudi 3 novembre 2011
Statut
Membre
Dernière intervention
6 février 2015
-
Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
-
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/

1 réponse

Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
3
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