Aplikasi Copy File Sederhana dengan Delphi

Aktifitas Copy File tentu hampir setiap hari kita lakukan dikomputer kita entah mengcopy materi kuliah, Tutorial, Mp3, Film dan semacamnya. Berangkat dari hal tersebut saya ingin mengajak sobat Delphi untuk membuat sebuah aplikasi Copy File Sederhana dengan menggunakan Delphi.

Sebagai gambaran, Aplikasi yang akan kita buat disini akan mampu mengcopy File yang ada kita pilih dari komputer menuju lokasi yang telah ditentukan. Lokasi tujuan tersebut telah dipatenkan didalam coding aplikasi yaitu di drive E:\\ Desan tampilan aplikasinya seperti gambar berikut.

Adapun coding Pilih file adalah dengan memanfaatkan komponen OpenDialog dimana codenya sebagai berikut

var
Dir : String;
begin
if OpenDialog1.Execute then
begin
edit1.Text:= OpenDialog1.FileName;
Dir := 'E:\';
Edit2.Text:=dir+'\'+ExtractFileName(Edit1.Text);
end;
end;

Sedangakan Perintah Copy File kita tanamakan didalam coding Copy sebagai berikut

if ( Edit1.Text <> '' ) and ( Edit2.Text <> '' ) then
if CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), False) then
Label3.Caption:='Status : OK [File Copied]';

anda dapat memodifikasinya sendiri dengan mendownload source codenya disini. selamat mencoba.