18-06-13, 06:26 AM
السلام عليكم قومت بعمل الاكود الاتى لرفع ملف على سيرفر ftp و لكن لم يتم رفع الملف:confused:
و يظهر الخطاء التالى
The requested URI is invalid for this FTP command.
ماذا افعل و انا متاكد ان الكود عملو صح:confused::confused::confused:
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim credential As New NetworkCredential("alimse", "123@asd123")
Upload("C:\1.jpg", "ftp://senbisi.somee.com/ar/img/", credential)
End Sub
Private Sub Upload(ByVal source As String, ByVal target As String, _
ByVal credential As NetworkCredential)
Dim request As FtpWebRequest = _
DirectCast(WebRequest.Create(target), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credential
Dim reader As New FileStream(source, FileMode.Open)
Dim buffer(Convert.ToInt32(reader.Length - 1)) As Byte
reader.Read(buffer, 0, buffer.Length)
reader.Close()
request.ContentLength = buffer.Length
Dim stream As Stream = request.GetRequestStream
stream.Write(buffer, 0, buffer.Length)
stream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse, FtpWebResponse)
MessageBox.Show(response.StatusDescription, "File Uploaded")
response.Close()
End Sub
و يظهر الخطاء التالى
The requested URI is invalid for this FTP command.
ماذا افعل و انا متاكد ان الكود عملو صح:confused::confused::confused: