اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طريقه لعمل نسخه احتياطيه للملف في اكثر من درايفر


الردود الموصى بها

الاخوه الاعزاء

الموضوع الذي اتقدم به اليوم هو كيفية عمل نسخه احتياطيه للملف في اكثر من درايفر( c,d f,e)

الرجاء قراءة الشرح قبل تحميل المرفق

اولا: يوجد بالمرفق فولدرين تحت اسم (ahmad 1,ahmad 2) بالاضافه للملف الاصلي

نظرا لانه عند تنزيل الويندوز في بعض الاحيان تختلف تقسيمات الدرايفرز

فانني اخترت تنفيذ النسخه الاحتياطه في درايفر c , d

اما من لديه اربع درايفرات فيمكنه عمل نسخ احتياطيه اخرى في درايفر f , e بسهوله

ثانيا: الية عمل النسخه كلاتي

1 حفظ الملف الاصلي

2 عمل نسخه احتياطيه في كل من درايفر c ,d

وهذا طبعا عند اختيار yes اما عند اختيار no فانه سيعمل فقط على حفظ الملف الاصلي فقط دون عمل تحديث للنسخ الاحتياطيه

ثالثا: المطلوب حتى يتم تنفيذ العمل بالشكل الصحيح

1 نقل فولدر ahmad 1 الى درايفر c

2 نقل فولدر ahmad 2 الى درايفر d

3 نقل الملف الاصلي الى اي مكان ترغب به

رابعا: طريقة التنفيذ

1 فتح الملف الاصلي المرفق

2 النقر على زر النسخه الاحتياطيه والانتظار قليلا حتي يتم التنفيذ ويتم غلق الملف تلقائيا

3 الذهاب الى فولدر ahmad 1,ahmad 2 ستجد الملف موجود هناك

4 العوده الى الملف الاصلي ومحاولة كتاب اي شئ به ومن ثم النقر على الزر مره اخرى ( اختياري)

5 الذهاب الى فولدر ahmad 1,ahmad 2 ستجد التغيرات التي تمت في الملف الاصلي هي نفسها الموجوده في النسخ الاحتياطيه

خامسا : محظورات الاستخدام

1 يجب دائما استخدام الملف الاصلي ولا يمكن باي حال استخدام ملفات النسخ الاحتياطيه كملف اصلي الا في الحالات التاليه:

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

وفي هذه الحاله يعتبر الملف الذي قمت بعمل حفظ باسم له هو الملف الاصلي الذي ستعمل به

ب كما يمكن ايضا استخدام ملف النسخ كملف رئيسي ولكن دون استخدام زر الامر (نسخه احتياطيه)والاكتفاء فقط بحفظ الملف

لانه بطبيعة الحال لا يمكن عمل نسخه احتياطيه لملف النسخه نفسها

سادسا : التغييرات المسموح بها

1 يمكنك تغيير اسماء الفولدرز الى اي اسم تريده ولكن بشرط ان تغير الاسم الموجود بالكود نفسه

2 وحتى ان اردت ان تضع الفولدر داخل فولدر فيمكن هذا ولكن ايضا بشرط ان يتم نقل path ووضعه كما هو بالكود بين علامات التنصيص

سابعا : مبروك عليكم حلول عيد الفطر السعيد( وكل عام وانتم بخير)

نسخه احتياطيه.rar

  • Like 5
رابط هذا التعليق
شارك

  • 2 months later...

اخي obad65

حياك الله وبارك الله فيك ( كل عام وانت بالف خير )

=============================================

اخي الحبيب والعزيز عادل

شكرا لك على مرورك الكريم الذي اسعدني انا شخصيا

وكل هذا ماهو الا ما جنيناه من هذا المنتدى العظيم

رابط هذا التعليق
شارك

  • 2 years later...

أخي الفاضل 

احمد حمور-ابوعبدالله

 

ملف جميل و لكن عندي سؤال من نوع آخر بالنسبة لحفظ الملفات

 

هل يمكن أن تساعدني في عمل نسخة إحتياطية و إرسالها إلى إيميل (معين) يومياً (كل24ساعة) أو كل  (مدة محددة- يوم -أسبوع-شهر) بشكل تلقائي ؟؟؟؟

 

أرجو أن يكون السؤال واضح و أتمنى أن أجد لديكم الإجابة 

رابط هذا التعليق
شارك

بجد وحشتنا قوي ووحشتنا اعمالك الجميلة استاذنا العزيز / ابو عبد الله

رابط هذا التعليق
شارك

  • 10 months later...

السلام عليكم

كود رائع وفعال

اريد اضافة جزئية اخرى للكود وهى انة يعمل نسخة احتياطية دون الضغط على اى ازرار فقط عند الضغط على علامة اكس فى البرنامج يعمل نسخة احتياطى ويحفظ فى نفس الوقت

 Private Sub CommandButton1_Click()
Dim msg As String
Dim ans As Integer
Dim ahmad As String, hamoor As String
msg = "هل ترغب بعملية نسخ احتياطية؟"
ans = MsgBox(msg, vbYesNo)
If ans = vbYes Then
ahmad = "c:\ahmad 1\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ahmad
hamoor = "d:\ahmad 2\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs hamoor
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
End If
End Sub

شكرا جزيلا للمجهود

رابط هذا التعليق
شارك

  • 7 months later...
  • 4 months later...

بعد التحية

الكود لا يعمل عند اغلاق الملف (الضغط على زر X ) كما تشير فى الشرح و هو نفس الكود الموجود بالملف الأصلى دون اى تغيير

فبرجاء اعادة الكود ليعمل بمجرد الضغط على زر X الخاص بأغلاق الملف كما تفضلتم بالتوضيح

حيث اننى احتاج الى هذا الكود بشدة

 

و شكرا جزيلا لمساعدتكم

رابط هذا التعليق
شارك

  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information