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 buah commonDialog, Namenya tetap (commonDialog1)
- 1 buah TextBox (Namenya Text1)
- Buah CommandButton masing-masing Captionnya "Telusur", "Copy File "
- 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.
