Copy Otomatis Menggunakan VB 6.0


Bermula pertanyaan  Tentang Copy Otomatis di Kaskus, Eh, jadi pingin jawab and Post di Blog, maksutnya apa sieh Copy otomatis😀 jadi kalo Kita Pingin Waktu Project/ Form dijalanin, kita langsung mengcopykan file ke dalam Suatu File ( kali ini kita ingin bahas Mengocopy file Ke C:/windows/system32/

Apa Fungsinya ? fungsinya jika kita menginginkan Menjalankan Form dengan Banyak dll. yang belom ada pada Komputer yang baru. atau Library yang ingin kita sembunyikan di system32 saat form dijalankan.

Ya.. Cari dicari. eh nemu Relasi dari Ilmukomputer.com

Jadi Langsung Aja kita Bikin Form Dan Masukin Script dibawah ini :

Private Declare Function CopyFile Lib "kernel32" Alias _
"CopyFileA" (ByVal lpExistingFileName As String, ByVal _
lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
Dim strSource As String
Dim strTarget As String
Dim lngRetVal As Long
strSource = App.Path & "\diaz.ocx"
strTarget = "C:\Windows\System32\diaz.ocx"
'// Copy File
lngRetVal = CopyFile(Trim$(strSource), Trim(strTarget), True)
If lngRetVal Then
MsgBox "File Dipindahkan!"
Else
MsgBox "Error. File Belum Dipindahkan, Mungkin File sudah Ada!"
End If
End Sub
Jadi Pada saat form dijalankan dia akan ngecek  apa ada file pada target.. klo g' ada dia nanti otomatis NGopi filenya.

relasi : ilmukomputer.com
Smoga Ilmu ini Bermanfaat
NB : oh ya.. jangan lupa taruh file yg mau dicopy di satu project ya :D

Satu Lagi Kalo Mau Mencek File Exsis aja😀 mungkin ini bisa membantu

dTarget = “C:\Test.txt”

If Dir(dTarget) <> “” Then
Msgbox “File exists”
Else
Msgbox “File does not exist”
End If

Hope it’s Helpfull

Copy Otomatis Menggunakan VB 6.0

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s