Membuat Form Duplikat/Copy File Dengan Jumlah Yang Ditentukan Secara Otomatis Dengan VB6

Postingan kali ini Admin akan berbagi kode yaitu bagaimana membuat duplikat/copy file dengan jumlah yang kita tentukan tanpa batas hanya dengan menekan tombol satu kali.

Dengan kode ini kita tidak perlu repot-repot mengcopi berkali-kali demi mendapatkan file yang banyak  sehingga dapat membuang waktu kita, tetapi dengan kode ini kita tinggal memasukan jumlah yang ingin di duflikat/copy dengan jumlah 1 hingga tak terbatas dengan sekali klik.

Untuk lebih jelasnya liahtlah gambar ilustrasi dibawah ini :

Sebelum

Bagaiaman cara membuatnya kita langkah-langkah dibawah ini :

1. Buka Form VB6 Standar EXE

2. Pada Form1 tambahkan beberapa Control dibawah ini :

3 buah TextBox

3 buah Label

3 CommandButon

1 Line (opsional), dan

1 CommonDialogControl

3. Desainlah Form1 seperti gambar dibawah ini :

Form Desain

4. Setelah mendesain Form, ketiklah kode dibawah ini :

Private Sub Command1_Click()

'Tombol Browse file sumber

    CommonDialog1.Filter = "All Files (*.*)|*.*"

    CommonDialog1.ShowOpen

    Text1.Text = CommonDialog1.FileName

    

End Sub

Private Sub Command2_Click()

'Tombol Browse file tujan

CommonDialog1.Filter = "All Files (*.*)|*.*"

    CommonDialog1.ShowOpen

    Text2.Text = CommonDialog1.FileName

    

End Sub

Private Sub Command3_Click()

'Tombol Duplikat

    Dim sourceFile As String

    Dim destinationPrefix As String

    Dim i As Integer

    

    sourceFile = Text1.Text

    destinationPrefix = Text2.Text

    

    

    If sourceFile = "" Or destinationPrefix = "" Or Text3.Text = "" Then

        MsgBox "File sumber, File tujuan dan Jumlah duplikat tidak boleh kosong!", vbExclamation, "Info"

        Exit Sub

    End If

    

    If Text3.Text < 1 Then

        MsgBox "Jumlah salinan harus lebih besar dari 0!", vbExclamation, "Info"

        Exit Sub

    End If

    

    For i = 1 To Text3.Text

        Dim destFile As String

        destFile = destinationPrefix & i & ".png" ' Anda bisa mengubah ekstensi sesuai kebutuhan

        If CopyFile(sourceFile, destFile) Then

         MsgBox "Duplikat sukses!", vbExclamation, "Info"

     

        Else

            MsgBox "Gagal membuat salinan " & i & ".", vbCritical, "Error"

        End If

    Next i

End Sub

Private Function CopyFile(sourceFile As String, destFile As String) As Boolean

    On Error GoTo ErrorHandler

    Dim sourceNum As Integer

    Dim destNum As Integer

    Dim buffer() As Byte

    

    sourceNum = FreeFile

    Open sourceFile For Binary Access Read As #sourceNum

    ReDim buffer(LOF(sourceNum) - 1)

    Get #sourceNum, , buffer

    Close #sourceNum

    

    destNum = FreeFile

    Open destFile For Binary Access Write As #destNum

    Put #destNum, , buffer

    Close #destNum

    

    CopyFile = True

    Exit Function

ErrorHandler:

    CopyFile = False

End Function

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

5. Setelah mengetik kode dengan benar seperti diatas, kemudian jalankan Project Anda dengan F5/RUN. Untuk uji coba klik tombol Browse [...] untuk memilih file yang akan di duplikat/copy dan tekan tombol Browse kedua [...] untuk memilih tempat atau folder hasil duplikat/copy, setelah itu masukan Jumlah Duplikat/Copy dengan jumlah yang Anda inginkan dan tekan tombol Duplikat, liahatlah hasil duplikasi ditempat dimana Anda menyimpannya.

Demikianlah artikel pada hari ini tentang Membuat Form Duplikat/Copy File Dengan Jumlah Yang Ditentukan Secara Otomatis Dengan VB6.

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mecoba semoga berhasil.

Related Post: Aplikasi sederhana