كيفية نقل الملفات باستخدام vba (مع مثال)

يمكنك استخدام الأسلوب MoveFile في VBA لنقل ملف من مجلد إلى آخر.

فيما يلي طريقة شائعة لاستخدام هذه الطريقة عمليًا:

 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

يقوم هذا الماكرو المحدد بنقل الملف المسمى Soccer_data.txt من مجلد يسمى Some_Data_1 إلى مجلد يسمى Some_Data_2 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية نقل الملفات باستخدام VBA

لنفترض أن لدينا ملفًا نصيًا يسمى Soccer_data.txt موجودًا في مجلد يسمى Some_Data_1 على سطح المكتب لدينا:

لنفترض الآن أننا نريد استخدام VBA لنقل هذا الملف النصي إلى مجلد آخر يسمى Some_Data_2 على سطح المكتب لدينا، والذي يحتوي حاليًا على ملفين نصيين:

قبل استخدام VBA لنقل هذا الملف، يجب علينا أولاً تمكين Microsoft Scripting Runtime في محرر VB.

للقيام بذلك، افتح محرر VB، ثم انقر فوق “أدوات” ، ثم انقر فوق “المراجع” :

في النافذة الجديدة التي تظهر، قم بالتمرير لأسفل حتى ترى Microsoft Scripting Runtime وحدد المربع المجاور له. ثم انقر فوق موافق .

ثم يمكننا إنشاء الماكرو التالي لنقل الملف:

 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

بمجرد تنفيذ هذا الماكرو، سيتم نقل الملف المسمى Soccer_data.txt من المجلد Some_Data_1 إلى المجلد Some_Data_2 :

لاحظ أنه إذا كنت تريد نقل كافة الملفات من مجلد إلى آخر، يمكنك استخدام بناء الجملة التالي:

 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

سيقوم هذا الماكرو المحدد بنقل كافة الملفات من المجلد Some_Data_1 إلى المجلد Some_Data_2 .

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب MoveFile هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

كيفية إنشاء مجلدات باستخدام VBA
كيفية حذف المجلدات باستخدام VBA
كيفية حذف الملفات باستخدام VBA