Cara MengCopy File dengan VB6.0 Seperti TeraCopy

Aplikasi yang akan kita buat kali ini yaitu aplikasi yang bisa digunakan untuk mencopy sebuah file. Aplikasi ini menggunakan sebuah Objek dari File Sistem yang bernama FileSystemObject. Dengan objek inilah kita bisa melakukan perintah-perintah yang berhubungan dengan file. Oke langsung saja kita praktekan.

Buat project baru dengan tipe Standard Exe. Kemudian tambahkan sebuah form kosong dengan nama Form1 misalnya.

Kemudian tambahkan komponen berikut :

1. 1 buah commonDialog, Namenya tetap (commonDialog1) 
2. 1 buah TextBox (Namenya Text1)
3. Buah CommandButton masing-masing Captionnya "Telusur", "Copy File "
4. 1 Buah label dengan caption "Copy File"

Atur seperti gambar berikut :

Gambar 1. desain program

 Kemudian double klik pada tombol "Telusur" dan ketikkan listing berikut :

Private Sub Command1_Click()

    CommonDialog1.ShowOpen

    Text1.Text = CommonDialog1.FileName

End Sub

Double klik pada tombol "CopyFile" dan ketikkan listing berikut :

Private Sub Command2_Click()

    Call fso.CopyFile(Text1.Text, "E:\")

        MsgBox "Data berhasil diunggah !"

    Set fso = Nothing

End Sub

Jangan lupa dibagian Paling atas (General) tambahkan listing berikut untuk deklarasi objek FileSystemObject

Dim fso As New FileSystemObject

Sampai tahap ini, proses coding sudah selesai. Tapi jangn di jalankan dulu karena pasti akan error. Object FileSystem belum dikenali.
Terus bagaimana caranya biar object dikenali ? Begini caranya :
Klik menu Project pilih References maka akan muncul form References.
Cari Microsoft Scripting Runtime dan centangkan. Kemudian klik tombol Ok.
Sekarang coba jalankan programnya.
[Coba klik tombol Telusur dan Pilih File apa saja yang ingin kamu copy] kemudian klik tombol Copy File.
Jika berhasil maka akan muncul pesan "Data berhasil diunggah !"
Syaratnya komputer kamu harus ada Drive E. Karena file akan dicopy ke drive E. Jika ingin ditempat lain, silakan ganti lokasinya. Ada pada listing

Call fso.CopyFile(Text1.Text, "E:\")

Ganti "E:\" dengan kamu inginkan.

Gambar 2. Hasil eksekusi program

Bagaimana, mudah bukan ??

Jika kamu mau projectnya, silakan unduh aja disini.

...