Cara memindahkan file menggunakan vba (dengan contoh)

Anda dapat menggunakan metode MoveFile di VBA untuk memindahkan file dari satu folder ke folder lain.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination file
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\soccer_data.txt"

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

Makro khusus ini memindahkan file bernama Soccer_data.txt dari folder bernama Some_Data_1 ke folder bernama Some_Data_2 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh : Cara memindahkan file menggunakan VBA

Katakanlah kita memiliki file teks bernama football_data.txt yang terletak di folder bernama Some_Data_1 di desktop kita:

Sekarang katakanlah kita ingin menggunakan VBA untuk memindahkan file teks ini ke folder lain bernama Some_Data_2 di desktop kita, yang saat ini berisi dua file teks:

Sebelum menggunakan VBA untuk memindahkan 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 memindahkan file:

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination file
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\soccer_data.txt"

'move file
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

Setelah makro ini dijalankan, file bernama football_data.txt akan dipindahkan dari folder Some_Data_1 ke folder Some_Data_2 :

Perhatikan bahwa jika Anda ingin memindahkan semua file dari satu folder ke folder lain, Anda dapat menggunakan sintaks berikut:

 Sub MoveMyFile()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source and destination folders
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\*"
DestFile = "C:\Users\bob\Desktop\Some_Data_2\"

'move all files from source folder to destination folder
FSO.MoveFile Source:=SourceFile, Destination:=DestFile

End Sub

Makro khusus ini akan memindahkan semua file dari folder Some_Data_1 ke folder Some_Data_2 .

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode MoveFile 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 menghapus file menggunakan VBA