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

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

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

الموضوع الذي اتقدم به اليوم هو كيفية عمل نسخه احتياطيه للملف في اكثر من درايفر( 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

[عبدالله باقشير]

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

الاخ الفاضل / احمد

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

كل عام وانت بخير

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

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

اخي الفاضل خبور خير

لكم اسعدني ان تكون اول من يعلق على الموضوع

وهذا شرف لي

جزاك الله خيرا

وكل عام وانت بخير

[خالد الشاعر]

استاذ احمد

تسلم ايدك و جزاك الله خيراً

و دائماً فى تقدم

[kby]

شكرا جزيلا أخي الكريم على هذا الموضوع الجميل .

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

الاخوه khhanna , kby

اشكركما على الردود الجميله

وكل عام وانتما بخير

[konafa4000]

كل عام وانت بخير

موضوع مهم جدا ومفيد

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

konafa4000

بارك الله فيك

وانت وجميع مسلمي الامه بالف خير

تم تعديل سبتمبر 10, 2010 بواسطه AHMADHAMOOR

[obad65]

جزاك الله ألف خير

[عادل حنفي]

السلام عليكم

اخي احمد

كل عام و انت بخير

و نحب ان نري مثل هذه الاعمال الجميلة دائما

خالص نحياتي و تقديري

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

اخي obad65

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

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

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

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

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

[yasso-it]

أخي الفاضل 

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

 

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

 

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

 

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

[مصطفى كمال متولى]

 

[حمادة عمر]

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

[أسامة عطاالله]

السلام عليكم

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

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

 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

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

[ابا اسماعيل]

السلام عليكم

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

[طارق_طلعت]

بعد التحية

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

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

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

 

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

[ahmed saif]

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