Mencari File Dalam Sebuah Folder

Berikut ini adalah contoh bagaimana cara mencari file dalam sebuah folder atau direktory. Kita akan menggunakan Listbox dan button. Saat button diclik maka file yang ditemukan kita kirim namnya ke daftar listbox.

• Buat aplikasi baru
• tambahkan Tlistbox
• tambahkan Tbutton
• Pada button1 clik

procedure TForm1.Button1Click(Sender: TObject);
var FileSearch:TSearchRec;
S,TempF,Ucode:String;
FileAttrs:Integer;
AppPath:string;
begin
ListBox1.Items.Clear;
//target pencarian
AppPath:='c:\windows\*.txt';
if findfirst(S,faDirectory,FileSearch) <> 0 then
FileAttrs:=faArchive;
if FindFirst(AppPath, FileAttrs, FileSearch) = 0 then
begin
Ucode:=FileSearch.Name;
ListBox1.Items.Add(Ucode);
while FindNext(FileSearch) = 0 do
begin
Ucode:=FileSearch.Name;
//masukan hasil pencarian ke listbox
ListBox1.Items.Add(Ucode);
end;
FindClose(FileSearch);
end;

end;