Rechercher un fichier au travers des répertoires

var
Count:Integer;

procedure GetAllFiles(mask:string);
var
search:TSearchRec;
verz:string;
such:string;

begin
such:=ExtractFileName(mask);
verz:=ExtractFilePath(mask);
if verz[length(verz)]<>'' then verz:=verz+'';

//all files
if FindFirst(mask,$23,search)=0 then
begin
repeat
form1.ListBox1.Items.Add(verz+search.Name);
inc(count);
until FindNext(search)<>0;
end;

//Subdirectories
if FindFirst(verz+'*.*',fadirectory,search)=0 then
begin
repeat
if ((search.Attr and fadirectory)=fadirectory) and (search.name[1]<>'.')
then begin GetAllFiles(verz+search.name+''+such);
end;
until FindNext(search) <>0;
FindClose(search);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
directory:string;
wildcard:string;


begin
count:=0;
screen.Cursor:=crHourGlass;
listbox1.Items.Clear;
directory:=edit1.Text; //p.E. c:
wildcard:=edit2.Text; //p.E. *.*
if directory[length(directory)]<>'' then directory:=directory+'';
GetAllFiles(directory+wildcard);
screen.Cursor:=crDefault;
ShowMessage(inttostr(count)+' Files found');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour19/11/2001
VisualisationVu 1235 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur