Memindahkan File

- 1 Module, 1 CommandButton
--------------------------------------------------------------------------------
- Pada Module

Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal _
lpExistingFileName As String, ByVal lpNewFileName As String) As Long
--------------------------------------------------------------------------------
- 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"
 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