دالة filecopy لنسخ الملفات واحتراف التعامل معها

[loulou ange]

http://www.dzbatna.com/images/icons/icon30.gif ط¯ط§ظ„ط© filecopy ظ„ظ†ط³ط® ط§ظ„ظ…ظ„ظپط§طھ ظˆط§ط*طھط±ط§ظپ ط§ظ„طھط¹ط§ظ…ظ„ ظ…ط¹ظ‡ط§ (http://www.dzbatna.com/t1764659/)





دالة filecopy لنسخ الملفات واحتراف التعامل معها (http://www.xpresslayer.net/vb/t25118.html)


بسم الله الرحمن الرحيم

الشرح طريقة حصري لمؤسسة السرعة الرقمية XpressLayer

وهو احتراف التعامل (http://www.xpresslayer.net/vb/t25118.html) مع دالة (http://www.xpresslayer.net/vb/t25118.html) نسخ الملفات

FileCopy

بيئة عمل الدالة : هي نسخ ملف سواء من القرص الصلب او فلاشة او اسطوانة

مثال لكتابة الدالة :


Filecopy "C:/Hazem.txt", "Hazem2.txt"
هنا قمنا بأعطاء امر بنسخ ملف hazem.txt الموجود في C:/
الى C:/ ويحمل اسم hazem2.txt

واضحة ما فيها شئ

نيجي دلوقتي نتطور شغلنا على تقيل شوية

عايزين نعمل برنامج بسيط لنسخ (http://www.xpresslayer.net/vb/t25118.html) الملفات (http://www.xpresslayer.net/vb/t25118.html) زي برنامج ToTal Copy او غيره

ما علينا الا اننا هنفتح مشروع جديد

هنضيف الادوات دي

زرار Command تحت إسم Cmd
مربع نصي Text تحت إسم txtPath_Orginal
مربع نصي اخر تحت إسم txtPath_To

تعالو نشوف بقى الشغل بتاعتنا هيبقى عامل ازاي

دلوقتي هنكتب في زرار Cmd الكود code دة
في حدث




رمز Code:
Cmd_Click
رمز Code:
If txtPath_Orginal.text = "" then Msgbox "من فضلك قم بكتابة مسار الملف الذي تود نسخه" End if If txtPath_To = "" then msgbox "من فضلك اكتب المسار الذي تود النسخ فيه" end if On Error GoTo Skip: filecopy txtPath_Orginal.text, txtPath_To.Text Skip
:

سـ : ولا فهمت منك حاجة خااالص
جـ : انا هفهمك واحدة واحدة

رمز Code:
If txtPath_Orginal.text = "" then Msgbox "من فضلك قم بكتابة مسار الملف الذي تود نسخه" End if
هنا بنتأكد ان المربع النصي الي فيه مسار الملف مش فاضي

رمز Code:
If txtPath_To = "" then msgbox "من فضلك اكتب المسار الذي تود النسخ فيه" end if
وهنا بنتأكد ان مسار الملف الجديد برضو مش فاضي

رمز Code:
On Error GoTo Skip:
هنا بنقول لو حصل خطأ روح طوااالي على سكيب Skip

رمز Code:
filecopy txtPath_Orginal.text, txtPath_To.Text
هنا بنقولو انسخ الملف الي في txtPath_Orginal لملف جديد بالعنوان الي في txtPath_To

وبكدا نكون انتهينا من شرح طريقة الدالة

واستنوني في باقي شروحات البرمجة المرئية Visual Basic 6.0

Eng. Hazem Ali
مهندس برمجيات

الموضوع الأصلي : http://www.xpresslayer.net/vb/t25118.html


المصدر: :: XpressLayer :: (http://www.xpresslayer.net/vb) - من قسم: قسم Visual Basic (http://www.xpresslayer.net/vb/f23.html)








ألعاب الأندرويد مجانا و حصريا (http://www.apotox.info/forum)




https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com)©