اكسل vba/ الدرس 322 / الذكاء الاصطناعي / كود نقل أو نسخ أي ملفات من مجلد إلي مجلد آخر✔✔✔
شرح الأكواد
يستخدم هذا الرمز Filesystem
Object لنقل الملف من المجلد المصدر إلى المجلد
الوجهة. يجب تعيين مسار مجلدي المصدر والوجهة على المسارات المناسبة على جهاز
الكمبيوتر الخاص بك. تم ترميز اسم الملف بشكل ثابت إلى "example.pdf"
في هذا المثال، لذلك ستحتاج إلى استبداله باسم الملف الفعلي. أخيرًا، سيظهر مربع
رسالة لتأكيد نقل الملف بنجاح.
تحتاج إلى تشغيل هذا الرمز من داخل تطبيق Excel،
ويحتاج إلى إضافة مرجع Microsoft Scripting Runtime
إلى مشروعك.
من المهم ملاحظة أن هذا الرمز سينقل الملف
ويحذفه من المجلد المصدر. إذا كنت تريد نسخ الملف بدلاً من نقله، يمكنك استخدام طريقة.
Copy File
بدلاً من طريقة. Move File.
الكود الاول
Sub MovePDFs() 'نقل ملفات pdf من مجلد الي مجلد آخر
On Error Resume Next
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileName As String
FromPath = "E:\p1\" 'مسار الملف المصدر
ToPath = "E:\p2\" 'مسار الملف الهدف
If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If
If Right(ToPath, 1) <> "\" Then
ToPath = ToPath & "\"
End If
FileName = Dir(FromPath & "*.pdf")
Set FSO = CreateObject("scripting.filesystemobject")
Do While FileName <> ""
FSO.MoveFile Source:=FromPath & FileName, Destination:=ToPath & FileName
FileName = Dir()
Loop
MsgBox "تم نقل الملفات بنجاح"
Set FSO = Nothing
End Sub
الكود الثاني
Sub MovePDF2() 'نقل ملفات pdf من مجلد الي مجلد آخر
On Error Resume Next
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = "E:\p2\" 'مسار الملف المصدر
ToPath = "E:\p1\" ' مسار الملف الهدف
If Right(FromPath, 1) <> "\" Then FromPath = FromPath & "\"
If Right(ToPath, 1) <> "\" Then ToPath = ToPath & "\"
Set FSO = CreateObject("scripting.filesystemobject")
FSO.MoveFile Source:=FromPath & "*.pdf", Destination:=ToPath
End Sub
ليست هناك تعليقات:
إرسال تعليق