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

النسخ الاحتياطي للملفات و المجلدات مع الضغط


asaz

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

ثيرا ما أود ان آخذ نسخ احتياطية لما يلي :

1/ ملف المفضلة بالوندوز

2/ ملف الخطوط

3/ سطح المكتب

4/ قائمة بدأ التشغيل

5/ المستندات

6/بعض المجلدات الخاصة بي والتي اضعها على الهاردسك مباشرة

وقد صممت برنامجا خاصا بي واحتياجات مكتبي

واريد ان اضع فيه هذا الزر حتى يريحني من كثير من العناء في تجميع نسخ احتياطية لهذه الملفات المتناثرة

ارجوا ان اجد لديكم الحل

أو ان تدلوني عليه

والشكرررررررررررررررررررررررر لــــــــــــــــــكم

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

عندي برنامج مكتب الخاص

معمول بالآكسس

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

وذلك بين الفينة والأخرى

حتى لا تضيع جهودي - وقد حصل لي مرة ذلك بأن ضرب الهاردسك، وشف أيش العمل بعد كذا-

ولذا اريد ان لا تتكرر هذه المأساة

ولو أمكن يكون نسخ وضغط لكان أفضل

واشكرك أخي على تفاعلك معي

ووالله اني انتظر على احر من الجمر

مع محاولاتي البحث

تم تعديل بواسطه asaz
رابط هذا التعليق
شارك

أخي الفاضل asaz ..

آسف لتأخري لانشغالي بالامتحانات ..

بالنسبة لنسخ الملفات بالكود فيإمكانك استخدام الوظيفة FileCopy ..

وهي تقوم بطلب الملف المصدر الذي سننسخه، والمسار الذي سننسخ إليه الملف ..

على سبيل المثال لنفترض أنك تريد نسخ ملف اسمه Test.txt وهو موجود على ال \:C وتريد نسخه إلى ال \:D عندهاى سيكون الكود كالتالي:

FileCopy "c:\Test.txt", "D:\Test.txt"

أعتقد أن الكود واضح جداً ولا يحتاج إلى كثير من الشرح ..

تم تعديل بواسطه عبد الله فتحي
رابط هذا التعليق
شارك

بالنسبة لضغط الملفات أعتقد أن الأمر ليس بالسهولة وسيحتاج لبعض البحث ولن أجد الوقت الكافي لذلك .. علماً بأنني ما زلت مبتدئاً في برمجة الأكسس ..

سأعود إليك لاحقاً بخصوص نسخ مجلد بكامله في حالة كونك تريد نسخ مجلد المفضلة أو مجلد المستندات الخاص بك ..

أتمنى لك التوفيق :fff:

تم تعديل بواسطه عبد الله فتحي
رابط هذا التعليق
شارك

أهلاً ..

في حالة كوننا نريد نسخ مجلد بكامله فإما أن نقوم بنسخها ملف ملف وطبعاً هذه طريقة عقيمة ومعقدة ..

بإمكاننا استخدام المكتبة Microsoft Scripting Runtime والذي تتيح لنا نسخ مجلد بأكمله، ويكون ذلك من خلال Tools >> Reference ثم اختيار المكتبة المذكورة أعلاه ..

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

Dim XCopy As New FileSystemObject
ثم ضع الكود التالي لنسخ مجلد المفضلة:
XCopy.CopyFolder "C:\Windows\Favorites", "D:\Sources\Favorites"

تحياتي :(

تم تعديل بواسطه عبد الله فتحي
رابط هذا التعليق
شارك

شكرا للاخ عبد الله علي الاكواد الجميلة

و بخصوص الضغط يرجي مراجعة هذا الموضوع

http://www.officena.net/ib/index.php?showtopic=1417

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

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