Proses Move File atau Cut File Dengan Visual Basic 6.0 (VB6)

Proses operasi file sering kita lakukan pada saat kita membuat sebuah file mulai dari copy file, delete file dan Cut File.

Namun pada artikel kali Admin akan berbagi code untuk membuat proses cut file atau memindahkan file dari satu tempat ke tempat yang lain melalui sebuah form yaitu form visual basic 6.0.

Berikut dibawah ini adalah Screenshoot Form proses MoveFile atau CutFile dengan VB6 :

Move File

Keterangan dari Gambar diatas adalah memindahkan file dari Drive 'D' ke Drive 'D' di Folder Image.

Untuk membuat Proses Move File atau Cut File Dengan Visual Basic 6.0 (VB6), ikuti langkah-langkah dibawah ini :

1. Buka Form VB6 Standar EXE

2. Pada Form1 tanamkan beberapa Control didalamnya, yaitu :

2 Label

2 Textbox

3 Commandbutton

1 CommonDialogControl dan

1 Line (optional)

3. Desailah Form seperti Gambar dibawah ini :

Desain Form

4. Setelah mendesain Form seperti diatas kemudian ketikan kode dibawah ini :

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

On Error GoTo ErrorHandler

    

' Pindahkan file

Name sourceFile As destFile

MoveFile = True

Exit Function

ErrorHandler:

MoveFile = False

End Function

Private Sub Command1_Click()

'Browse file sumber

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

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

'Browse file tujuan

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

CommonDialog1.ShowOpen

Text2.Text = CommonDialog1.FileName

End Sub

Private Sub Command3_Click()

'Tombol Move

Dim sourceFile As String

Dim destFile As String

    

    sourceFile = Text1.Text

    destFile = Text2.Text

    

    If sourceFile = "" Or destFile = "" Then

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

        Exit Sub

    End If

        

    If MoveFile(sourceFile, destFile) Then

        MsgBox "File berhasil dipindahkan!", vbInformation, "Info"

    Else

        MsgBox "Gagal memindahkan file.", vbCritical, "Error"

    End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

5. Setelah mengetikan kode seperti diatas jalankan Project Anda dengan menekan tombol RUN/F5.

Setelah itu cobalah untuk tahap uji coba dengan menekan tombol [...] untuk mencari file sumber dan tekan tombol [...] yang kedua untuk menentukan tujuan dimana tempat kita untuk memindahkan file tersebut, kemudian tekan tombol Move

Demikianlah artikel kali ini tentang Proses Move File atau Cut File Dengan Visual Basic 6.0 (VB6), semoga artikel ini bermanfaat buat kita semua, Amin.

Selamat mencoba semoga berhasil.

Related Post: Aplikasi sederhana Tools