Vba: كيفية نسخ ملف من موقع إلى آخر

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

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

 SubCopyMyFile ()

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

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

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 وحدد المربع المجاور له. ثم انقر فوق موافق .

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

 SubCopyMyFile ()

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

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

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

سيظل ملف Soccer_data.txt الأصلي أيضًا في المجلد Some_Data_1 :

ملاحظة : يمكنك العثور على الوثائق الكاملة لطريقة CopyFile هنا .

مصادر إضافية

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

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