Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi untuk memindahkan seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit 
 
Public Function MoveAllFiles() 
    Dim fso As New FileSystemObject 
    Call fso.MoveFolder(Source, Destination) 
    Set fso = Nothing 
End Function 

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click() 
    Call MoveAllFiles("C:\djview", "D:\djview") 
End Sub