+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : نسخ محتويات مجلد في مجلد آخر (/showthread.php?tid=19765)
الصفحات:
1
2
نسخ محتويات مجلد في مجلد آخر - الخير طهوري - 23-03-17
[attachment=13617]
السلام عليكم ورحمة الله
نزولا عند رغبة أخي الفاضل SENDBAD100
أحبتي أريد أن ننجز سويا برنامج لنسخ مجلد أو محتويات مجلد إلى مجلد آخر
أنجزت البرنامج وهذا ملفه التنفيذي
فأرجو أن تفكروا في كيفية أنجازه
تحياتي
RE: نسخ محتويات مجلد في مجلد آخر - sendbad100 - 23-03-17
وعليكم السلم ورحمة الله
اعد رفع المثال
لم يعمل
RE: نسخ محتويات مجلد في مجلد آخر - الخير طهوري - 23-03-17
(23-03-17, 11:00 PM)sendbad100 كتب : وعليكم السلم ورحمة الله
اعد رفع المثال
لم يعمل
لقد قمت بتنزيله من الرابط السابق وهو يعمل والصورة توضح ذلك
لا بد أن المشكل في مكان ما وسوف نحاول اصلاح الخلل
وقد أعدت رفع الملف مرة ثانية في نفس الرابط
جرب رفعه ثانية وأخبرني بالنتيجة
RE: نسخ محتويات مجلد في مجلد آخر - sendbad100 - 23-03-17
السلم وعليكم
لماذ لا ترفع المشروع نفسه
ربما المشكلمن جهازي نفسه لانه جهاز العمل
RE: نسخ محتويات مجلد في مجلد آخر - الخير طهوري - 23-03-17
[attachment=13620]
أخي سندباد المشكل أنك مثبت النسخة الانجليزية من vb6 وينقصك الملف
vb6fr.dll الخاص بتعريف اللغة الفرنسية
عليك بتنزيل الحزمة DLL التالية وبعد فك الضغط إما أن تنسخ كل الملفات إلى المسار: C:\ windows--> system32
أو تنسخ فقط الملفات التي تحتوي على vb6Fr
سوف تجد أن الملف يشتغل
تحياتي
توضيح: عند الضغط على زر تحديد المجلد تظهر النافذة التالية: أرجو ابلاغي بالنتيجة مشكورا لنستمر في الانجاز بعد أخذ ملاحظات الإخوة الأكارم واقتراحاتهم مشكورين
RE: نسخ محتويات مجلد في مجلد آخر - sendbad100 - 24-03-17
تم تجربته بشكل سريع ويبدو يعمل جيدا
RE: نسخ محتويات مجلد في مجلد آخر - الخير طهوري - 24-03-17
السلام عليكم
أضع بين أيديكم كود نسخ محتويات مجلد في مجلد آخر
يوضع الكود في حدث كوموند
ويبقى عليكم اقتراح كيفيات تنفيذ هذا الكود
كود :
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFolder Text1, Text2 ', True
Set fso = Nothing
MsgBox "Êã äÓÎ ãÍÊæíÇÊ ÇáãÌáÏ", vbInformation, "ÊäÈíå"
Text1 = ""
Text2 = ""تحياتي
RE: نسخ محتويات مجلد في مجلد آخر - sendbad100 - 24-03-17
االله يعطيك الف عافية
ممتاز
RE: نسخ محتويات مجلد في مجلد آخر - الخير طهوري - 24-03-17
السلام عليكم
أين انتم
هل اكتفيتم
ام نواصل انجاز البرنامج ؟؟؟
تحياتي
RE: نسخ محتويات مجلد في مجلد آخر - sendbad100 - 24-03-17
وعليكم السلم ورحمة الله وبركاته
انا معك متابع لكل منشور ولكل خطوة
اذ كان لديك وقت اقترح انتقوم بعمل مثال احترافي لنسخ ملف ونسخ مجلد
ووضعة في قسم الامثلة ومشاريع
كي تعم الفايدة
واضف عليه من بنات افكارك ما تجده مناسباً
او اذا لديك اي فكرة فنحن معك كي تعم الفائدة
واسال الله ان يكتب اجرك