+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] كود نسخ ملف من مكان لأخر (/showthread.php?tid=19686)
RE: كود نسخ ملف من مكان لأخر - mero zarad - 22-03-17
تمام تم تنفيذ الشرط الأول ولكن لم يتم تنفذ باقي الكود وهي ان يعطي رساله تفيد بالنسخ
RE: كود نسخ ملف من مكان لأخر - الخير طهوري - 23-03-17
(22-03-17, 08:58 PM)mero zarad كتب :
أخي mero ماذا تعني بتنفيذ الشرط الأول؟ هل خرج البرنامج من الحدث؟
لأنك كتبت ما يلي: Exit Sub والتي تعني أن ينفذ ما قبلها ثم يخرج
فطلب إظهار رسالة تفيد بتمام عملية النسخ يأتي في حالة عدم الخروج من الحدث
أنظر في المرفق كيف وضعت أنا الأمر بإظهار رسالة تفيد بتمام عملية النسخ في الكود الخاص بزر تحديد مكان النسخ.
تحياتي
RE: كود نسخ ملف من مكان لأخر - sendbad100 - 23-03-17
السلام عليكم
اعتقد انه لا داعي لاستخدام تشكبوكس لكل مسار او لكل تكست
يكفي ان تشيك على التكست اذا كان فيه مسار نسخ واذا فارغ يتوقف
ايضا ليكون الكود اكثر احترافية يجب التاكد ان المسار صالح او موجود.
بالنسبة للخروج من الكود التي استخدمها اخي mero zarad اعتقد انها صحيحة لان ايقاف النسخ في حال لم يحدد اي مسار للنسخ اليه.
والله الموفق
RE: كود نسخ ملف من مكان لأخر - الخير طهوري - 23-03-17
(23-03-17, 03:27 AM)sendbad100 كتب : السلام عليكم
اعتقد انه لا داعي لاستخدام تشكبوكس لكل مسار او لكل تكست
يكفي ان تشيك على التكست اذا كان فيه مسار نسخ واذا فارغ يتوقف
ايضا ليكون الكود اكثر احترافية يجب التاكد ان المسار صالح او موجود.
بالنسبة للخروج من الكود التي استخدمها اخي mero zarad اعتقد انها صحيحة لان ايقاف النسخ في حال لم يحدد اي مسار للنسخ اليه.
والله الموفق
السلام عليكم أخي sendbad100
1
- اعتقد انه لا داعي لاستخدام تشكبوكس لكل مسار او لكل تكست
يكفي ان تشيك على التكست اذا كان فيه مسار نسخ واذا فارغ يتوقف
نعم أنا استخدمت checkbox واحد للنسخ دفعة واحدة ، لكن الأخ mero طلب chrckbox لكل مسار لست أدري لماذا؟ علما أنني قدمت كل الاحتمالات: بالكوموند، وبـ check واحدة لجميع المسارات وأخيرا check لكل مسار مما يعني أنه قد يرغب بالنسخ في بعض المسارات ويستثني بعضها
والقصد هنا التعليم وللمتعلم أن يختار ما يناسبه من بين كل الخيارات
2- ايضا ليكون الكود اكثر احترافية يجب التاكد ان المسار صالح او موجود.
بما أن المسار محدد سلفا ما يعني أن المسار موجود أصلا لأنه تم اختياره فلا داعي للتأكد
3- بالنسبة للخروج من الكود التي استخدمها اخي mero zarad اعتقد انها صحيحة لان ايقاف النسخ في حال لم يحدد اي مسار للنسخ اليه.
إذا لم يحدد أي مسار يخرج من الحدث واذا حدد المسار تظهر الرسالة هذا صحيح
أنا كنت أقرأ من الهاتف وبالنظارات فلم أنتبه للرسالة الأولى
عموما أشكرك على كل الملاحظات وهذا يدخل ضمن تبادل الأفكار قصد توضيح الرؤى والتعليم بالدرجة الاولى
ألف شكر
RE: كود نسخ ملف من مكان لأخر - mero zarad - 23-03-17
الف شكر لكل من ساهم في حل المشكلات التي كانت تقابلني في تصميم برنامجي
وإليكم البرنامج بعد اكتمال الهدف منه وفي انتظار أرائكم ومقترحاتكم لتحسين البرنامج كما تفضل اخي sendbad100 في إضافه تاريخ وساعة النسخ وفي جعل لبرنامج لا يمسح الملف الموجود قديما ويعطي رساله تفيد بوجود هذا الملف من قبل ويقوم بعمل نسخه جديده
والف شكر مره أخري للجميع
RE: كود نسخ ملف من مكان لأخر - sendbad100 - 24-03-17
لزيادة الفائدة في سؤال لي من فترة
اجاب استاذي / احمد منصور برطيقة رائعة ومشروحة جيداً بطريقتين جميلتين للنسخ الملف حتى عندما يكون مفتوحاً وهي الطريقة المتبعة من الاخ / [b]الخير طهوري[/b]
وايض الشكر موصول لاخي / [b]محمد العبيدي هو ايضا اجاب بطريقة مختلفه.[/b]
يمكن الاطلاع على الموضوع للفائدة
http://vb4arb.com/vb/showthread.php?tid=17863
لا اخفي عليكم للاستاذ / احمد منصور فضل كبير علي ولا املك الان ان ادعو له في ظهر الغيب.
فهو صديقي وحبيبي في الله حيث اعرفه معرفة شخصية وهو لا يختلف عنما هو عليه في المنتدى من اخلاق عالية وجود وكرم في مساعدة الاخرين بشكل قد يضر بعمله الشخصيمن اجل غيره
اسال المولى عز وجل ان يفتح عليه من اوسع ابوابه وان يجزية الف خير والف عافية وكل من يحب.
السلام عليكم
هذا كود التاكد من وجود المفل قبل نسخة // او التاكد من صحة المسار
PHP كود :
If Dir(Trim(Text1.Text)) = "" Then
MsgBox "لم يتم العثور على المف المطلوب نسخة"
Exit Sub
End If
RE: كود نسخ ملف من مكان لأخر - mero zarad - 24-03-17
السلام عليكم
لو سمحتم لو حبيت أضيف للبرنامج السابق check أخري عند الضغط عليها يتم تحديد جميع أماكن النسخ أيكون check يعمل علي تحديد الكل فكيف يكون الكود الخاص بتلك الإضافه
بالإضافه الي الكود الخاص برساله تفيد بوجود الملف الذي تم نسخه من قبل وعمل نسخه إضافيه منه
والف شكر
RE: كود نسخ ملف من مكان لأخر - sendbad100 - 24-03-17
(24-03-17, 07:51 PM)وعليكم السلام mero zarad كتب : السلام عليكم
لو سمحتم لو حبيت أضيف للبرنامج السابق check أخري عند الضغط عليها يتم تحديد جميع أماكن النسخ أيكون check يعمل علي تحديد الكل فكيف يكون الكود الخاص بتلك الإضافه
بالإضافه الي الكود الخاص برساله تفيد بوجود الملف الذي تم نسخه من قبل وعمل نسخه إضافيه منه
والف شكر
اضفت checkbox جديد طلع اسمة Check25 طبق الفكرة في الكود التالي
PHP كود :
Private Sub Check25_Click()
If Check25.Value = 1 Then
Check1.Value = 1
Check2.Value = 1
Else
Check1.Value = 0
Check2.Value = 0
End If
RE: كود نسخ ملف من مكان لأخر - mero zarad - 26-03-17
السلام عليكم
لو سمحت ياجماعه عند عمل البرنامج بصيغة exe ونقله علي جهاز آخر البرنامج لا يعمل ارجو الافاده
السلام عليكم
لو سمحت ياجماعه عند عمل البرنامج بصيغة exe ونقله الي جهاز آخر يعطي رساله وهذه صورة الرساله ارجو الافاده
RE: كود نسخ ملف من مكان لأخر - الخير طهوري - 26-03-17
(26-03-17, 10:54 AM)mero zarad كتب : السلام عليكم
لو سمحت ياجماعه عند عمل البرنامج بصيغة exe ونقله علي جهاز آخر البرنامج لا يعمل ارجو الافاده
السلام عليكم
لو سمحت ياجماعه عند عمل البرنامج بصيغة exe ونقله الي جهاز آخر يعطي رساله وهذه صورة الرساله ارجو الافاده
السلام عليكم ورحمة الله
الجهاز الثاني لا يحمل مكتبة الأدوات ولهذا إذا أردت أن يشتغل في هذا الجهاز قم بأنجار برنامج التثبيت أو التسطيب
والذي بدوره سوف يضيف مكتبة الأدوات التي يحتاجها إلى الجهاز الثاني
تحياتي
