والا من نمیفهمم چی میخواین الان ؟ میخواین با ftp اپلود کنین دیگه درسته؟
خوب برای اینکار شما نیاز به استفاده از ftpwebrequest دارید ...
میتونید از این کد استفاده کنید :
Try
Dim filepath As String = "File Address"
Dim filename As String = Path.GetFileName(filepath)
Dim ftpfullpath As String = "Ftp sertver address"
Dim ftp As FtpWebRequest = DirectCast(FtpWebRequest.Create(ftpfullpath), FtpWebRequest)
ftp.Credentials = New NetworkCredential("ftpusername", "ftppassword")
ftp.KeepAlive = True
ftp.UseBinary = True
ftp.Method = WebRequestMethods.Ftp.UploadFile
Dim fs As FileStream = File.OpenRead(filepath)
Dim buffer As Byte() = New Byte(fs.Length - 1) {}
fs.Read(buffer, 0, buffer.Length)
fs.Close()
Dim ftpstream As Stream = ftp.GetRequestStream()
ftpstream.Write(buffer, 0, buffer.Length)
ftpstream.Close()
Catch
MessageBox.Show("Plz Retry", "Error")
End Try
همچنین برای راحتی تو کارتون میتونید کد های بالا رو به یه تابع تبدیل کنید و بخش هایی مثل filepath و یوزر و پسورد رو پارامتری کنید ....
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول