FAQ : Cara Agar Foto Masuk Ke Folder Khusus Pada Saat Data Disimpan

FAQ : Cara Agar Foto Masuk Ke Folder Khusus Pada Saat Data Disimpan | Visual Basic Magazine - Pada pembahasan sebelumnya tentang bagaimana cara membuat program browse dan simpan foto dengan Visual Basic 6.0, yang tercatat didalam database hanyalah URL/PATH dari lokasi foto tersebut.

Jadi agar lebih teratur, admin menyarankan agar membuat sebuah folder khusus untuk sebagai tempat meletakan file foto, namun proses tersebut masih harus dilakukan secara manual di windows explorer.

Berdasarkan pembahasan tersebut pula, seorang visitor bertanya kepada admin, bagaimana caranya agar foto tersebut juga ikut masuk/pindah secara otomatis ke folder khusus yang telah ditentukan pada saat data disimpan.

Dalam hal ini, kita harus menambahkan sedikit script pada program. Sebelumnya, silakan sobat lihat dulu pembahasan terkait dan download project nya pada posting saya yang berjudul Cara Membuat Program Browse Dan Simpan Foto Dengan Visual Basic 6.0.

Jika sudah, silakan ikuti langkah-langkah berikut ini :

• Buat sebuah folder didalam folder project dan beri nama folder tersebut "foto" (tanpa tanda petik)
• Masukkan script berikut pada bagian code dari form program tersebut

Private Declare Function SHFileOperation Lib "Shell32.dll" Alias "SHFileOperationA" (lpFileOP As shfileopstruct) As Long Private Const FO_copy = &H2 Private Const fof_allowundo = &H40 Private Type shfileopstruct hwnd As Long wfunc As Long pfrom As String pto As String Fflags As Integer Faborted As Boolean hnamemaps As Long sprogress As String End Type Public Sub copy(ByVal asal As String, ByVal tujuan As String) Dim X As shfileopstruct With X .hwnd = 0 .wfunc = FO_copy .pfrom = asal & vbNullChar & vbNullChar .pto = tujuan & vbNullChar & vbNullChar .Fflags = fof_allowundo End With SHFileOperation X End Sub

• Kemidian sisipkan script berikut ini pada Tombol "Simpan" dan letakkan dibawah perintah rsmhs.Update

copy CommonDialog1.FileName, App.Path & "\foto"

• Pada script diatas, yaitu App.Path &"\foto". Tulisan yang berwarna merah adalah nama folder tempat menampung file foto pada saat data di simpan melalui form sesuai dengan instruksi paling pertama diatas.

Untuk penerapan pada tombol Edit dan Delete, saya belum bisa memberikan jawaban. Karena masih harus utak-atik script dulu dan merancang logika programnya.

Sekian jawaban dari saya pada posting yang berjudul FAQ : Cara Agar Foto Masuk Ke Folder Khusus Pada Saat Data Disimpan. Semoga bermanfaat dan selamat mencoba.