Arsip Tag: folder

Menghapus Direktori

Pada pemrograman Delphi, untuk menghapus folder/direktori dapat menggunakan fungsi RemoveDir(const Dir: string) : Boolean procedure TF_HapusDirektori.Button1Click(Sender: TObject); begin if RemoveDir(‘c:\coba’)=true then showmessage(‘Berhasil menghapus Direktory c:\coba’) else showmessage(‘Gagal menghapus Direktory c:\coba’); end;

Dipublikasi di File dan Direktori | Tag , , , , , , , , | Meninggalkan komentar

Mengecek Keberadaan Direktori

Pada pemrograman Delphi, untuk mengecek keberadaan folder dapat menggunakan fungsi DirectoryExist(const Directory: string) : Boolean procedure TF_CekDirektori.Button1Click(Sender: TObject); begin if DirectoryExists(‘c:coba’)=true then showmessage(‘Direktory c:\coba : ADA’) else showmessage(‘Direktory c:\coba : TIDAK ADA’); end;

Dipublikasi di File dan Direktori | Tag , , , , , | Meninggalkan komentar

Membuat Direktori

Delphi, untuk membuat folder dapat menggunakan fungsi : CreateDir(const Dir: string) à hanya bisa membuat folder 1 level ForceDirectory(Dir: string): Boolean à bisa membuat folder lebih dari 1 level procedure TF_CreateDir.Button1Click(Sender: TObject); begin if CreateDir(‘c:\DirBaru’)=true then showmessage(‘Berhasil ‘+button1.Caption) else showmessage(‘Gagal … Baca lebih lanjut

Dipublikasi di File dan Direktori | Tag , , , , , , , , , , | Meninggalkan komentar

Meng-copy File

Function : CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: Boolean): Boolean; Pada program Delphi, untuk mengcopy file kita dapat menggunakan fungsi : CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: Boolean): Boolean; lpExistingFileName   : File yang akan dicopy lpNewFileName        : File tujuan (lengkap dengan foldernya) … Baca lebih lanjut

Dipublikasi di File dan Direktori | Tag , , , , , , | Meninggalkan komentar

Memindahkan File (Move)

Function : MoveFile(lpExistingFileName, lpNewFileName: PChar): Boolean; Pada program Delphi, untuk memindahkan file kita dapat menggunakan fungsi : MoveFile(lpExistingFileName, lpNewFileName: PChar): Boolean;   lpExistingFileName   : File yang akan dicopy lpNewFileName        : File tujuan (lengkap dengan foldernya) Contoh: Buat 1 … Baca lebih lanjut

Dipublikasi di File dan Direktori | Tag , , , , , , | Meninggalkan komentar