بعد تنصيب قوقل درايف، اريد حفظ الملفات فيه (معدل)

[أبو امين]

هذا المثال يسجل نسخة من البرنامج في  ملف تحت اسم : Copy يكون بجانب البرنامج الاصلي : 

لكن  ما اريده صراحة ان ارفع نسخة على قوقل درايف و لكم التمشي او التصور الذي يمكن ان يطبق ذلك  : 

01 / قمت بتنزيل قوقل درايف على سطح المكتب حيث قام بانشاء driver  تحت اسم (: G )  Google Drive

02/ عوضا ان نرفع البرنامج على قوقل درايف و اعتماد غنوان الواب يمكن ان نرفع الملف مباشرة الى  القرص الذي تم انشاؤه من قبل قوقل درايف  اي ان نرفع الملف الى : (: G )  Google Drive

و نكون بذلك قد تحيلنا على قوقل درايف و انجزنا مهمتنا بسرعة فائقة 

المطلوب : اريد تغيير مسار تسجبل المثال المرفق من سطخ المكتب الى  (: G )  Google Drive

CopyFile.rar

[jjafferr]

وعليكم السلام 🙂

 

البرنامج فيه خطأ !!

المفروض لما تختار من ايقونة مسار التحديث ، وتختار المسار ، المفروض ان يتم تثبيته ، واستعماله ،

ولكن السطر التالي من كود زر الحفظ ، لا يراعي ذلك ، وفي نفس السطر يمكنك تغيير المسار (الثانوي/الاضافي) اذا وُجد ،

تغيير السطر التالي
DstFile = CurrentProject.Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") & ".accdb"

  
CurrentProject.Path معناه المجلد الذي به قاعدة البيانات
بينما نريد ان نحفظه في المسار الذ اخترناه
  
  
الى
DstFile = Copy_Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb"
  
  
بينما اذا لم نرد ان نحفظه في اي مجلد ثانوي ، وانما حفظه في المسار الذي تم اختياره من الايقونة
DstFile = Copy_Path & "\" & "نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb"  

 

جعفر

[jjafferr]

وهذه طريقة اخرى ، لعمل النسخ الاحتياط مباشرة على Google Drive 

 

جعفر

[أبو امين]

 

شكرا استاذي تعبناك معانا الله اينورك يارب 

======================)(====================