Fungsi FileCopy

Fungsi FileCopy adalah fungsi yang akan mengcopy sebuah file dari sebuah direktori path ke direktori path lainnya. Direktori Path dan Direktori target harus dituliskan secara penuh termasuk ekstensi filenya, karena jika tidak maka akan keluar pesan (yang dalam bahasa indonesianya) File Tidak Ditemukan. Untuk File target atau file hasil copiannya, anda bisa menggunakan nama lain atau nama yang berbeda dengan file sumbernya tetapi harus tetap mencantumkan ekstensi filenya, misalnya file sumbernya berupa file .txt, maka file targetnya juga harus berekstensi .txt agar file tersebut tetap bisa dibuka oleh program lainnya. Fungsi ini biasa penulis gunakan untuk membackup(per-tanggal) file database dari aplikasi yang penulis buat (apalagi aplikasinya diperuntukkan sebagai client-server, dimana di aplikasi client, tabelnya merupakan Link Table ke database access di server, (hal ini bisa anda lakukan dengan menggunakan database splitter di menu Tools -> Database Utilities -> Database Splitter), dan juga biasa penulis gunakan untuk file photo dalam aplikasi yang penulis buat, agar file tersebut ada pada direktori yang bisa diakses oleh semua user yang menggunakan aplikasi yang penulis buat.

Struktur Fungsi ini adalah :

FileCopy <File Sumber>, <File Target>

Untuk membackup seperti yang penulis lakukan, caranya adalah sebagai berikut :

Dalam sebuah code yang akan menutup Ms Access(biasanya DoCmd.Quit atau Application.Quit) tambahkan code dibawah ini :

Dim strFileSumber As String, strFileTarget As String
Dim blFileExists As Boolean

strFileSumber = "C:\Sample File Copy.mdb"
strFileTarget = "D:\Sample File Copy" & "_Backup" & Format(Date, "yyyymmdd") & ".mdb"

If Dir(strFileTarget) <> "" Then blFileExists = True

If blFileExists = True Then
Kill strFileTarget
End If

FileCopy strFileSumber, strFileTarget

Code diatas akan membuat salinan/copian atau backup-an dari file Sample File Copy.mdb yang berada pada drive C:\ ke drive D:\. Nama file hasil copiannya tergantung dari tanggal dieksekusinya code tersebut, misalnya tanggal dieksekusinya adalah pada tanggal 1 Februari 2012, maka file hasil copiannya akan bernama Sample File Copy_Backup20120201.mdb

Fungsi FileCopy juga bisa anda gunakan untuk keperluan lainnya, namun yang harus anda ingat adalah, target untuk filecopy haruslah bisa diakses oleh anda atau user anda, karena jika tidak bisa diakses (misalnya karena target file berada pada folder yang Read Only) maka akan terjadi error.

Semoga Bermanfaat...

Posted in: belajar access 2003