آپلود فایل در هاست

[mahdi.a.v]

سلام
من میخوام یه فایلی رو در هاست آپلود کنم من این کار رو با این کد انجام میدم :

My.Computer.Network.UploadFile(Application.Startup Path + "\1.txt", "ftp://ftp.bnjhost.ir/public_html/1.txt", "username", "password")



اما این روش برای من کار نمیکنه ...
اگه ممکنه بگید دقیقا باید در قسمت ftp://ftp.bnjhost.ir/public_html/1.txt چه چیزی و از کجا جایگزین مشخصات خودمون کنیم ... ؟
Domain من هم برای مثال mahdi.xzn.ir هستش ...
ممنون

[mahdi.a.v]

کسی نیست جواب بده ؟!

[aliagamon]

والا من نمیفهمم چی میخواین الان ؟ میخواین با 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 و یوزر و پسورد رو پارامتری کنید ....

[Hossis]

شاید دسترسی برای نوشتن روی هاست رو ندارین

[roo.row]

با سلام

دستور صحیحه یه اکانت اف تی پی بسازید و برنامه رو بهش متصل کنید .

و در ضمن میتونید هم دسترسی های هاست و htaccess هاروبرسی کنید که چیزی محدود نشده باشه

با تشکر