Source Code untuk Melakukan Copy File dengan Banyak Opsi
Di dalam Visual Foxpro sebenarnya sudah ada source code bawaan yang dapat digunakan untuk melakukan Copy Files yaitu :
COPY FILE FileName1 TO FileName2
Contoh :
COPY FILE "C:\testfile.txt" TO "D:\testfilecopy.txt"
Contoh syntak diatas digunakan untuk mengcopy file C:\testfile.txt ke D:\testfilecopy.txt.
Syntak diatas sebenarnya telah bisa memenuhi kebutuhan, bila ingin melakukan pengCopyan Files lewat source code. Tetapi bila kita menggunakan syntak bawaan Visual Foxpro diatas terdapat beberapa hal yang terasa kurang bila dibandingkan jika kita melakukan Copy Files secara manual dengan menggunakan Windows Explorer, yaitu :
- Tidak bisa memunculkan progress pengCopyan Files. Bila file berukuran kecil mungkin hal ini tidak menjadi masalah, tetapi bila File berukuran besar sampai ratusan MB ke atas maka akan menjadi masalah karena nantinya aplikasi terkesan hang karena menunggu Copy Files selesai, sedangkan user tidak tau sudah sampai mana progress pengCopyan.
- Opsi konfirmasi pengCopyan seperti gambar di bawah ini, beserta cara menentukan opsi secara otomatis juga tidak bisa diaktifkan, meski mungkin dengan tambahan coding akal - akalan bisa melakukannya tetapi opsi default untuk hal ini tidak tersedia.
Berdasarkan hal itu, maka jika teman - teman ingin melakukan Copy Files yang dapat memanfaatkan semua opsi seperti layaknya melakukan Copy Files secara manual dengan Windows Explorer maka dapat menggunakan alternatif syntak di bawah ini :
cFile="d:\testfile.rar"
cDir="g:\"
objShell = CreateObject("shell.application")
objFolder = objShell.NameSpace(cDir)
if !isnull(objFolder)
if File(cFile)
objFolder.CopyHere(cFile,0)
else
Messagebox("File Sumber Invalid..!!, 0+16,"Error")
endif
else
Messagebox("Direktori target invalid..!!, 0+16,"Error")
endif
Sebenarnya syntak dasar untuk melakukan mengCopyan Files dengan source code diatas, hanyalah terdiri dari 3 baris syntak berikut ini :
objShell = CreateObject("shell.application")
objFolder = objShell.NameSpace(cDir)
objFolder.CopyHere(cFile,0)
Akan tetapi pada source code diatas dibuat lebih lengkap untuk dapat mendeteksi apakah File sumber yang akan di Copy benar - benar ada atau valid, dan juga apakah lokasi Folder untuk meletakkan hasil pengCopyan benar - benar ada atau tidak.
Hal - hal yang perlu diperhatikan dalam menggunakan source code untuk melakukan pengCopyan diatas adalah sebagai berikut :
- Tentukan lokasi File yang akan di Copy dengan mengatur variable cFile, kemudian tentukan lokasi Folder untuk meletakkan hasil pengCopyan dengan mengatur variable cDir.
- Untuk mengatur pilihan opsi, silahkan ubah angka 0 yang terdapat di dalam Function CopyHere dengan daftar paramater yang di dapat dari MSDN Microsoft di bawah ini
SEMOGA BERMANFAAT...!!
No comments :
Post a Comment