Prgrammation en delphi

Signaler
Messages postés
1
Date d'inscription
dimanche 17 août 2003
Statut
Membre
Dernière intervention
26 août 2003
-
Messages postés
12
Date d'inscription
mardi 19 août 2003
Statut
Membre
Dernière intervention
5 mai 2005
-
Comment connaitre le nombre de fichiers dans un repertoire?
Merci

1 réponse

Messages postés
12
Date d'inscription
mardi 19 août 2003
Statut
Membre
Dernière intervention
5 mai 2005

Tu peux essayer de parcourir tou ton répertoire avec les instructions FindForst, FindNext, FindClose et d'incrémenter ton compteur de fichiers à chaque fichier trouvé. Un truc de ce style devrait marché (vérifier dans l'aide pour les options de recherche)

var Trouve, NbFichiers : Integer;
FichierCrt : TSearchRec;
begin
NbFichiers := 0;
Trouve := FindFirst(Repertoire + '*.*', faAnyFile, FichierCrt);
WHILE (Trouve = 0) DO
begin
inc(NbFichiers);
Trouve := FindNext(FichierCrt);
end;
FindClose(FichierCrt);
end;