Cara menyalin folder di vba (dengan contoh)

Anda dapat menggunakan metode CopyFolder di VBA untuk menyalin folder dari satu lokasi ke lokasi lain.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Makro khusus ini menyalin folder bernama current_data dari folder Dokumen ke Desktop .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh : Cara copy folder menggunakan VBA

Katakanlah kita memiliki folder bernama current_data yang terletak di folder bernama Documents :

Sekarang katakanlah kita ingin menggunakan VBA untuk menyalin seluruh folder ini ke Desktop , yang saat ini berisi dua folder:

Sebelum menggunakan VBA untuk menyalin file ini, kita harus mengaktifkan Microsoft Scripting Runtime terlebih dahulu di editor VB.

Untuk melakukannya, buka editor VB, lalu klik Alat , lalu klik Referensi :

Di jendela baru yang muncul, gulir ke bawah hingga Anda melihat Microsoft Scripting Runtime dan centang kotak di sebelahnya. Lalu klik oke .

Kemudian kita bisa membuat makro berikut untuk menyalin folder:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Setelah makro ini dijalankan, folder bernama current_data akan disalin dari folder Dokumen ke desktop :

Folder current_data asli juga akan tetap berada di folder Dokumen .

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode CopyFolder di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Cara Membuat Folder Menggunakan VBA
Cara menghapus folder menggunakan VBA
Cara membuat daftar file dalam folder menggunakan VBA