Membuat Folder dengan Delphi

Bagaimanakah cara Membuat Folder dengan Delphi ? mungkin untuk sebagian orang yang sudah bukan pemula lagi alias newbi sudah tidak asing lagi dengan pembahasan ini. Sekedar ngisi postingan sajalah dari pada kosong.hheee... dan juga buat siapa saja yang membutuhkan Codingnya monggo disimak.

Procedure TForm1.Button1Click(Sender:TObject);
var
Dir: string;
begin
Dir := 'D:\FotoKaryawan';

if DirectoryExists(Dir) then
ShowMessage(Nama Folder Sudah ada ')
else
ForceDirectories(Dir);
end;


Cuma Begitu doank... Semoga membantu.. Kalo bermanfaat jangan asal copas saja MINIMAL LIKE atau COMMENT !!