[VB6] برنامج Upload و Download عبر FTP6

مرحبا بكم اخواني المبرمجين المبتدئين
اليكم برنامج بسيط للتحميل و الرفع مصمم بالفيوجوال بيسك


واجهة البرنامج عند فتحه




ادخل بيانات حسابك على السيرفر 
اسم السيرفر 
اسم المستخدم 
ثم كلمة السر
مسار الملف الذي تريد رفعه
المسار الذي تريد ان يحفظ به المجلد على السيرفر FTP
ثم اضغط على الزر Upload 



تم رفع الملف بنجاح 



البرنامج يمكن ايضا من تحميل ملف موجود على السرفر و حفظه بمجلد تختار مساره

ادخل مسار الملف على السيرفر
ثم المكان الذي تريد ان تحفظ به الملف
ثم اضغط على الزر Download



تأتيك الرسالة عند نجاح التحميل



عند حدوث خطأ تأتيك الرسالة التالية



انتبه الى / و \  عند كتابة مسار الملف على الجهاز او على السيرفر
انظر الصور

كيفية  تصميم البرنامج

قم بانشاء 7   TextBox
ثم انشاء  7 Label  مع كتابة التعليق في كل لابل
قم بانشاء ثلاثة ازار CommandButton  و غير Caption الى تحميل للاول و رفع للزر الثاني و خرورج للزر الثالث
اضف Listbox الى الفورم
لا  تنس اضافة اداة الاتصال من Components



انظر الى واجهة المشروع



الان ننتقل الى الاكواد



تتمة الكود




رابط تحميل المشروع مع الملف التنفيذي

Evilshare

على MediFire

MidLoad


رابط مباشر