Cara Membuat Form yang dapat Meng-copy File dengan Meggunakan VB60

Cara Membuat Form yang dapat Meng-copy File dengan Meggunakan VB60 - Pada pertemuan kali tiptrikunikvb akan menulis sebuah artikel yag merupakan bagian dari tip vb60 dengan judul "Cara Membuat Form yang dapat Meng-copy File dengan meggunakan VB60".

Setiap orag pasti tau apa tujuan dari mecopy file dan hal ini sering kita lakukan saat kita sedang megopersikan komputer atau sejenis gadget lainya yang memang sudah disediakan menu untuk megcopy file tersebut.

Tahukah Anda ternyata di VB60 kitapun bisa membuat Form untuk mengcopy File dengan membuatya sendiri. Dalam trik kali ini Saya memberikan trik bagaimana cara membuat menu copy file sendiri dengan meggunakan program VB60.

Adapun langkah langkah pembuatannya adalah sebagai berikut :

Cara Membuat Form yang dapat Meng-copy File dengan Meggunakan VB60

1. Letakan 2 buah Control Frame, 2 buah DriveListBox, 2 buah DirListBox dan 1 buah FileListBox, 2 buah TextBox dan 1 buah CommandButton.

2. Di Frame1 letakan DriveListBox1, DirListBox1 dan FileListBox1

3. Sedangkan di Frame2 letakan DriveListBox2 dan DirListBox2

4. Aturlah tampilan seperti desain gambar dibawah ini:

Desain Form

5. Kemudian atur Properti masing-masing seperti berikut :

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 Long
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 = tujua & vbNullChar & vbNullChar
.fFlags = FOF_ALLOWUNDO
End With
SHFileOperation x
End Sub
Private Sub Command1_Click()
Copy Text1.Text, Text2.Text
MsgBox "File berhasil di Copy"
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Dir2_Change()
Text2.Text = Dir2.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub

Private Sub File1_Click()
Text1.Text = File1.Path & "\" & File1.FileName
End Sub

Demikian artikel tentang Cara Membuat Form yang dapat Meng-copy File dengan meggunakan VB60, Saya ucapkan terimakasih atas kujungan Anda di blog tiptrikunikvb6, semoga artikel yang ada disini membawa mafaat buat kita semua untuk menambah wawasan kita didunia pemograman khususya VB60. Selamat mencoba semoga sukses

Related Post: Aplikasi sederhana Form