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