Membuat search file delphi 7

Membuat Search for Files


Apa yang kita buat di sini adalah "Mencari file" dan muncul pada saat dijalankan. Komponen yang digunakan pada form adalah: TDriveComboBox yangberfungsi untuk mendapatkan drive, 2 TEdit sebagai input path directory dan file mask, CheckBox, ListBox dan Button.

File yang ditemukan akan ditampilkan dalam ListBox dan jika ChickBox dicentang maka semua subfolder di-scan untuk mencari file yang cocok. Berikut Source potongan program menggunakan Delphi :



procedure TfrMain.FileSearch(const PathName, FileName : string; const InDir : boolean);
var Rec  : TSearchRec;
    Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
 try
   repeat
     ListBox1.Items.Add(Path + Rec.Name);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;

If not InDir then Exit;

if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
 try
   repeat
    if ((Rec.Attr and faDirectory) <> 0)  and (Rec.Name<>'.') and (Rec.Name<>'..') then
     FileSearch(Path + Rec.Name, FileName, True);
   until FindNext(Rec) <> 0;
 finally
   FindClose(Rec);
 end;
end; //procedure FileSearch



procedure TfrMain.Button1Click(Sender: TObject);
begin
  ListBox1.Clear;
  lblNumberFound.Caption:=Inttostr(ListBox1.Items.Count) + ' files found.';
  FileSearch(Edit1.Text, Edit2.Text, CheckBox1.State in [cbChecked]);
  lblNumberFound.Caption:=Inttostr(ListBox1.Items.Count) + ' files found.';
end;

Tampilan hasil sebagai berikut :

Posted via Blogaway