تصدير ملفات لمسارين مختلفين

[ahmad_mustafa]

السلام عليكم 

في المرفق نموذج برنامج به زر يعمل على تصدير pdf لملف في مسار 1  ويوجد به زر اخر لعمل نسخة باك اب والمطلوب ان ينسخ الباك اب الى المسار 2 وذلك كي لاتكون نسخة الباك اب على نفس الهارد 

مع العلم عند فتح النموذج ينشأ تلقائي الفولدرات للمسار 1 والمسار2 ....وجزاكم الله كل خير

2URL.rar

[ناقل]

2 ساعات مضت, ahmus said:

السلام عليكم 

في المرفق نموذج برنامج به زر يعمل على تصدير pdf لملف في مسار 1  ويوجد به زر اخر لعمل نسخة باك اب والمطلوب ان ينسخ الباك اب الى المسار 2 وذلك كي لاتكون نسخة الباك اب على نفس الهارد 

مع العلم عند فتح النموذج ينشأ تلقائي الفولدرات للمسار 1 والمسار2 ....وجزاكم الله كل خير

 

استخدم هذه الشيفرة ......

Project_path = DLookup("[Folder_Path]", "msar_folder_tb", "[ID]=2")
DBOld = CurrentProject.Path & "\2URL.accdb"
DBNew = Project_path & "\backup_2URL"
Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & Format(Now, "yyyy-mm-dd@hh.nn.ss") & "2URL" & ".accdb" & """", 0
MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية"

 

[ahmad_mustafa]

بارك الله فيك الكود اشتغل تمام