Memindahkan File Dari Satu Folder ke Folder Lain Dangan VB

== > Memindahkan File Dari Satu Folder ke Folder Lain Dangan VB

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