Mencetak Nama File dalam Suatu Folder Tertentu Kedalam Teks dengan delphi

Kita terkadang memerlukan daftar files atau folder untuk lokasi tertentu misalnya untuk dicetak. sehingga kita harus membuat list nama nama file dan extensionnya dan kemudian menuliskannya kedalam sebuah text


berikut contoh programnya dalam delphi

buat project baru yang isinya

1. ListBox

2. Button

3. OpenDialog

procedure LoadFilesByMask(lst: TStrings; const SpecDir: string);
var
   intFound: Integer;
   SearchRec: TSearchRec;
begin
   lst.Clear;
   intFound := FindFirst(SpecDir + '*.*', faAnyFile, SearchRec);
   while intFound = 0 do
      begin
         //lst.Add(SpecDir + SearchRec.Name); // gunakan bila ingin sampai folder
           lst.Add(SearchRec.Name); // gunakan untuk nama file saja
           intFound := FindNext(SearchRec);
      end;
   FindClose(SearchRec)
end;

kemudian doubleklik pada Button1 dan isikan procedure berikut

procedure TForm1.Button1Click(Sender: TObject);
var
   strDir:string;
   DirSelected: string;
begin
   if SelectDirectory('Select a folder:', 'D:\Delphi', DirSelected) then
      begin
         strDir:=DirSelected + '\'; // bagian pentingnya disini
         LoadFilesByMask(ListBox1.Items, strDir); // bagian pentingnya disini
      end
   else
      begin
         ShowMessage('You did not select a folder');
      end;
end;


jangan lupa pada uses tambahkan FileCtrl karena kita menggunakan open folder (ada pada postingan sebelumnya tentang Select Folder Memanfaatkan Open Dialog di Delphi)


selesai...
saatnya untuk RUN

Klik Button1

Pilih Folder yang ingin di list

Kemudian Klik OK. maka akan muncul isi dari folder tersebut kedalam ListBox

bagian yang tidak ada extensionnya adalah folder.

bila ingin menampilkan seluruh isi sampai ke akar foldernya maka lakukan sedikit modifikasi pada coding nya


procedure LoadFilesByMask(lst: TStrings; const SpecDir: string);
var
   intFound: Integer;
   SearchRec: TSearchRec;
begin
   intFound := FindFirst(SpecDir + '*.*', faAnyFile, SearchRec);
   while intFound = 0 do
      begin
         if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
            begin
               if (SearchRec.Attr and faDirectory) = faDirectory then
                  LoadFilesByMask(lst, SpecDir + SearchRec.Name + '\')
              else
                  lst.Add(SpecDir + SearchRec.Name); // gunakan bila ingin sampai folder
               //lst.Add(SearchRec.Name); // gunakan untuk nama file saja
             end;
       intFound := FindNext(SearchRec);
   end;
   FindClose(SearchRec);
end;


Terimakasih

Berkah Dalem ⍏

Select Folder Memanfaatkan Open Dialog di Delphi

Kali ini kita akan membuat program untuk select nama folder, ingat nama folder ya yang diambil bukan nama filenya...

okay langsung aja

Kita bikin form baru, beri komponen Edit, Button dan Open Dialog

double click button1

isikan coding berikut

procedure TForm1.Button1Click(Sender: TObject);                         
var                                                                                                       
  DirSelected: string;                                                                           
begin                                                                                                   
  if SelectDirectory('Select a folder:', 'D:\Delphi', DirSelected) then 
    Edit1.Text:=DirSelected + '\'                                                          
  else                                                                                                    
    ShowMessage('You did not select a folder');                                  
end;                                                                                                     

kemudian jangan lupa tambahkan FileCtrl di Uses nya

Run

klik button1

Pilih Foldenya,

Misal kita pilih folder COBA CPY

klik OK

Maka Edit 1 akan terisi alamat folder tersebut

Sekian