السلام عليكم
السؤال موجه للأخت زهرة حفظها الله بشكل خاص ولكل من يستطيع المساعدة - جزاكم الله خيرا جميعا -
سؤالي هو هل أستطيع نسخ ملف معين مثل pdf أو وورد من مكان وحفظه في مكان آخر من خلال نفس البرنامج الذي قامت الأخت زهرة بعمله والموجود على الرابط التالي
وجزيتم خيرا
تفضل اخي الكريم
الملف بناء على طلبك
ملاحظة : يجب ادخال مكان الملف المنسوخ يدويا على حسب الرغبه في اي مكان مثل وضعه مباشرة على القرص المحلي ( \:C ) او تضعه في مجلد في احد الأقراص مثل ( \E:\MyFolder )
الملف الجديد بعد التعديل
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 15 يناير 2012 في 10:04
الأخت زهرة
بداية أشكر لك جهودك و جزاك الله خيرا على ما تقدمينه في هذا المنتدى وجعله في ميزان حسناتك .
من خلال تجرة البرنامج يعطي error عند تنفيذ نقل ملف
كالآتي :
If Not fso.FileExists(dfol & file) Then
fso.MoveFile sfol, dfol, True
MsgBox dfol & file & " Êã äÞá ÇáãáÝ", vbInformation, "ÇáãáÝ ÇáãäÞæá"
End If
فقط إدا كان بالإمكان حله لو سمحتي لأني حاولت ولم أستطع
وجزاك الله خيرا
معذرة اخي الكريم
على الخطأ الغير مقصود في كود نقل الملف من مكان الى آخر
انظر التعديل
الملف بعد التعديل
بالتوفيق
شكرا جزيلا وجزاك الله خيرا
أمنياتي لك بالتوفيق والمزيد من العطاء أختي أم عهود
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
