VB6 Code - Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi VB6 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 VB6 di atas:

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