نقل مجموعة ملفات pdf من ملف الى ملف جديد من خلال الاكسس

[figo82eg]

ارجو المساعدة حيث لدى جدول بالاكسس به الاف الارقام هذه الارقام مرتبطة بملفات pdf مرقمة بنفس الارقام الموجودة بجدول الاكسس .

ما أريده هو نقل جميع ملفات pdf المسماة بنفس الارقام الموجودة بجدول الاكسس من محرك الاقراص d الى محرك الاقراص e من خلال زر فى نموذج

[essam rabea]

أخى figo82eg 

هل هذا الفولدر به ملفات أخرى غير المسماه بنفس الارقام الموجودة بجدول الاكسس

[essam rabea]

إن كنت ستنقل جميع ملفات PDF من فولد مسمى مثلا PDF على محرك ال D الى فولدر بنفس الاسم على محرك ال E فاستخدم هذا الكود والذى يقوم بالنقل والإستبدال اذا كان الملف موجود مسبقا

أنشى فولد بإسم PDF على المحرك D وضع به بعض ملفات PDF .. وأنشى فولدر آخر بإسم PDF على المحرك E ودعه فارغا

ضع زر أمر على نموذج وأدخل الكود التالى فى حدث عند الضغط .. ووافنى بالنتيجة

Dim fso
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
sSourceFile = "D:\PDF\*.pdf"
sDestinationFile = "E:\PDF"
fso.CopyFile sSourceFile, sDestinationFile, True
fso.DeleteFile sSourceFile


واذا رغبت فى عدم مسح ملفات المصدر فإلغى آخر سطر من الكود 

خالص تحياتى

[figo82eg]

اشكرك اخى الكريم على اهتمامك وبالفعل الفولدر به ملفات اخرى غير المسماة بنفس الارقام الموجودة بجدول الاكسس ومرفق مثال على قاعدة البيانات لدى

New Microsoft Office Access Application.rar

تم تعديل أكتوبر 11, 2019 بواسطه figo82eg

[essam rabea]

أخى figo82eg

إن كان المرفق هو المطلوب يبقى لازم تدفع

 

 

 

دعوة حلوة بظهر الغيب

PDFMove.mdb

[figo82eg]

بارك الله فيك اخر الكريم وجزاك الله عنا كل خير