كيفية نسخ ملف من Ftp Server على الجهاز المحلي

و عليكم السلام و رحمة الله تعالى و بركاته,,,

جرب الكود التالي :

		' إنشاء كائن الطلب
		Dim ftpReq As FtpWebRequest = FtpWebRequest.Create("ftp://xxxxxxxxxxxx/xxxxx.xxx")
		' تظمين معلومات اسم الدخول و كلمة المرور
		ftpReq.Credentials = New NetworkCredential("login", "password")
		' تحديد صيغة ربط الإتصال
		ftpReq.Method = WebRequestMethods.Ftp.DownloadFile
		' الحصول على كائن الاستجابة
		Dim ftpResp As FtpWebResponse = ftpReq.GetResponse()
		' الحصول على كائن قراءة محتوى الملف
		Dim strm As Stream = ftpResp.GetResponseStream()
		' حجز داكرة لنسخ المحتوى بين ملف المصدر  و الوجهة
		Dim bfr As Byte() = New Byte(1024) {}
		' إنشاء الملف على الحاسوب
		Dim fs As New FileStream("file.ext", FileMode.OpenOrCreate)
		' عدد البيانات المقروءة
		Dim n As Integer = 0
		Do
			' قراءة من ملف المصدر
			n = strm.Read(bfr, 0, bfr.Length)
			' كتابة في ملف الوجهة على الحاسوب
			fs.Write(bfr, 0, n)
		Loop While n <> 0
		' غلق ملف المصدر
		strm.Close()
		' إنهاء و غلق ملف الوجهة على الحاسوب
		fs.Flush()
		fs.Close()

تحياتي...

الاخ العزيز محمد رضى جزاك الله كل خير على الرد الصاروخي

قمت بتجربة الكود ويعمل معى

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

جزاك الله كل خير

أخي الكريم cdcase, يجب أن تحدد اسم الدخول و كلمة المرور في الجملة التالية من الكود :

' ftpReq.Credentials = New NetworkCredential("login", "password")

حيث login يمثل اسم الدخول لك على خادم ftp و password كلمة المرور. تأكد من صحة المعلومات وكدلك مسار الملف المراد تنزيله.

جربت الكود قبل ارساله لك و قد عمل بنجاح. و أتمنى أن ينجح في برنامجك أيضا.

تحياتي...

بالفعل قد نجح وجزيت خيرا فى الدنيا والاخرة

بما انك معى الان هل تقوم معي بفتح صندوق حوار للمستخدم ويقوم هو بتسمية الملف وحفظه فى المكان الذى يريده على جهازه

فقط قم بكتابة الكود التالي :

Dim sfd As New SaveFileDialog()
If sfd.ShowDialog() = DialogResult.OK Then
	' الكود المرفق لتحميل الملف
End If
sfd.Dispose()

مع تغيير السطر التالي :

		' إنشاء الملف على الحاسوب
		Dim fs As New FileStream("file.ext", FileMode.OpenOrCreate)

بهدا :

		' إنشاء الملف على الحاسوب
		Dim fs As New FileStream(sfd.FileName, FileMode.OpenOrCreate)

تحياتي...

نِعم المساعدة أخى شكراااااااااااااا :thumb_up:

الكود يعمل بنجاح وبدون اى مشاكل :clapping:

جزاك الله خيرا انت وأهلك فى الدنيا والأخرة

تحيااااااااااتى