[VB] Mengcopy file lewat FILE I/O Binary

Ada beberapa cara mengcopy file dengan Visual Basic. Ini adalah salah satu caranya, yaitu melalui prosedur FILE I/O Binary.

Deklarasi:
1 Form

Source Code:

Private Sub Command1_Click()
   Dim binFile() As Byte
   Open "C:\Windows\explorer.exe" For Binary As #1 'Buka File yang akan dicopy
   Open "C:\Windows\explorer2.exe" For Binary As #2 'Buat File tujuan
   ReDim binFile(0 To LOF(1))           'Deklarasi ulang array sesuai dengan banyaknya baris pada file
   Get #1, , binFile()                            'Ambil data binary dari file yang akan dicopy
   Put #2, , binFile()                            'letakkan data binary pada file tujuan
   Close #1                                       'tutup file yang tercopy
   Close #2                                        'tutup file tujuan
  
   'Cek apakah tercopy atau tidak
   MsgBox IIf(Dir("C:\Windows\explorer2.exe") <> "", "Selesai", "Error")
End Sub

Jangan Lupa Komentar Yaa..