asaz قام بنشر ديسمبر 25, 2003 قام بنشر ديسمبر 25, 2003 ثيرا ما أود ان آخذ نسخ احتياطية لما يلي : 1/ ملف المفضلة بالوندوز 2/ ملف الخطوط 3/ سطح المكتب 4/ قائمة بدأ التشغيل 5/ المستندات 6/بعض المجلدات الخاصة بي والتي اضعها على الهاردسك مباشرة وقد صممت برنامجا خاصا بي واحتياجات مكتبي واريد ان اضع فيه هذا الزر حتى يريحني من كثير من العناء في تجميع نسخ احتياطية لهذه الملفات المتناثرة ارجوا ان اجد لديكم الحل أو ان تدلوني عليه والشكرررررررررررررررررررررررر لــــــــــــــــــكم 1
عبد الله فتحي قام بنشر ديسمبر 25, 2003 قام بنشر ديسمبر 25, 2003 أحاول أعملك كود ... بس شو دخل هذا بالأكسس :p
asaz قام بنشر ديسمبر 26, 2003 الكاتب قام بنشر ديسمبر 26, 2003 (معدل) عندي برنامج مكتب الخاص معمول بالآكسس واريد أن اضع زر أمر يقوم بنسخ احتياطي لملفاتي الخاصة ووضعها في ملف معين أو لنقلها للسيدي وذلك بين الفينة والأخرى حتى لا تضيع جهودي - وقد حصل لي مرة ذلك بأن ضرب الهاردسك، وشف أيش العمل بعد كذا- ولذا اريد ان لا تتكرر هذه المأساة ولو أمكن يكون نسخ وضغط لكان أفضل واشكرك أخي على تفاعلك معي ووالله اني انتظر على احر من الجمر مع محاولاتي البحث تم تعديل ديسمبر 26, 2003 بواسطه asaz
عبد الله فتحي قام بنشر ديسمبر 26, 2003 قام بنشر ديسمبر 26, 2003 (معدل) أخي الفاضل asaz .. آسف لتأخري لانشغالي بالامتحانات .. بالنسبة لنسخ الملفات بالكود فيإمكانك استخدام الوظيفة FileCopy .. وهي تقوم بطلب الملف المصدر الذي سننسخه، والمسار الذي سننسخ إليه الملف .. على سبيل المثال لنفترض أنك تريد نسخ ملف اسمه Test.txt وهو موجود على ال \:C وتريد نسخه إلى ال \:D عندهاى سيكون الكود كالتالي: FileCopy "c:\Test.txt", "D:\Test.txt" أعتقد أن الكود واضح جداً ولا يحتاج إلى كثير من الشرح .. تم تعديل ديسمبر 26, 2003 بواسطه عبد الله فتحي
عبد الله فتحي قام بنشر ديسمبر 26, 2003 قام بنشر ديسمبر 26, 2003 (معدل) بالنسبة لضغط الملفات أعتقد أن الأمر ليس بالسهولة وسيحتاج لبعض البحث ولن أجد الوقت الكافي لذلك .. علماً بأنني ما زلت مبتدئاً في برمجة الأكسس .. سأعود إليك لاحقاً بخصوص نسخ مجلد بكامله في حالة كونك تريد نسخ مجلد المفضلة أو مجلد المستندات الخاص بك .. أتمنى لك التوفيق تم تعديل ديسمبر 26, 2003 بواسطه عبد الله فتحي
عبد الله فتحي قام بنشر ديسمبر 26, 2003 قام بنشر ديسمبر 26, 2003 (معدل) أهلاً .. في حالة كوننا نريد نسخ مجلد بكامله فإما أن نقوم بنسخها ملف ملف وطبعاً هذه طريقة عقيمة ومعقدة .. بإمكاننا استخدام المكتبة Microsoft Scripting Runtime والذي تتيح لنا نسخ مجلد بأكمله، ويكون ذلك من خلال Tools >> Reference ثم اختيار المكتبة المذكورة أعلاه .. وبعدها قم بكتابة هذا الكود في قسم التصريحات العامة: Dim XCopy As New FileSystemObject ثم ضع الكود التالي لنسخ مجلد المفضلة: XCopy.CopyFolder "C:\Windows\Favorites", "D:\Sources\Favorites" تحياتي :( تم تعديل ديسمبر 26, 2003 بواسطه عبد الله فتحي
محمد طاهر عرفه قام بنشر ديسمبر 27, 2003 قام بنشر ديسمبر 27, 2003 شكرا للاخ عبد الله علي الاكواد الجميلة و بخصوص الضغط يرجي مراجعة هذا الموضوع 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.