Connaitre rapidement le nombre de fichiers d'un répertoire

function FileCount( const aFolder: string): Integer;
var
H: THandle;
Data: TWin32FindData;
begin
Result := 0;
H := FindFirstFile(PCHAR(aFolder + '*.*'), Data);
if H <> INVALID_HANDLE_VALUE then
repeat
Inc(Result, Ord(Data.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0));
until
not FindNextFile(H, Data);
Windows.FindClose(H);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('le dossier c: contient '+inttostr(FileCount('c:'))+ ' fichiers');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour18/12/2004
VisualisationVu 1358 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur