Move (Cut) File By Coding VB6

Berikut ini adalah cara memindahkan file (cut/move) dari suatu folder ke folder lain. di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form Anda.

          '--- Ini coding di Module Anda...
          Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal _
          lpExistingFileName As String, ByVal lpNewFileName As String) As Long
          '--- Batas coding di Module...

          '--- Ini coding di Form Anda...

          Private Sub Command1_Click()
          'Contoh ini memindahkan file 'c:\MyFile.Zip' ke direktori 'c:\MyDir'.
            A = MoveFile("c:\MyFile.Zip", "c:\MyDir\MyFile.Zip")
            If A Then

               MsgBox "File berhasil dipindahkan!", vbInformation, "Sukses Pindah File"
            Else
               MsgBox "Error. File belum dipindahkan!" & Chr(13) & _
                      "Kemungkinan file asal tidak ada" & Chr(13) & _
                      "atau file sudah ada di dalam " & Chr(13) & _

                      "direktori tujuan!", vbCritical, "Gagal Pindah File"
            End If
          End Sub
          '--- Batas coding di Form...


Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module