Memindahkan File

Latihan kali ini kita buat program untuk memindahkan file dari suatu
folder ke folder lain.

Persiapan:
1. Buat 1 Project dengan 1 Form, 1 Module, dan 1
Commandbutton.
2. Ketik coding berikut ke dalam editor form Anda.

Ketik coding berikut ini pada Module.
Declare Function MoveFile Lib "kernel32" Alias _ "MoveFileA"
(ByVal lpExistingFileName As String, _
ByVal lpNewFileName As String) As Long

Ketik coding berikut ini pada Form.
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