منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(26-11-20, 02:44 PM)mir2 كتب : [ -> ]طريقه بسيطه

كود :

Dim wc As New System.Net.WebClient()
wc.Encoding = System.Text.Encoding.UTF8
wc.Credentials = New System.Net.NetworkCredential("username", "pass")
TextBox1.Text = wc.DownloadString("ftp://url/test.txt")

---

تعديل الكود بتاعك

كود :

      Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://url/test.txt"), System.Net.FtpWebRequest)
       request.Credentials = New System.Net.NetworkCredential("username", "pass")
       request.Method = System.Net.WebRequestMethods.Ftp.DownloadFile

       Dim txt As String

       Dim strz As System.IO.Stream = request.GetResponse().GetResponseStream()
       Dim reader As New System.IO.StreamReader(strz)
       txt  reader.ReadToEnd()
       reader.Close()
       reader.Dispose()
       strz.Close()
       strz.Dispose()

       TextBox1.Text = txt

(26-11-20, 08:55 PM)mir2 كتب : [ -> ]لم افهم طلبك

ارجع للكود بتاعك - اعلى الموضوع
عدل السطر

كود :

Dim file() As Byte = System.IO.File.ReadAllBytes("E:\user\test.txt")

الى

كود :

Dim file() As Byte = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)