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

نسخة كاملة : كفية رفع ملف على سيرفر ftp
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم قومت بعمل الاكود الاتى لرفع ملف على سيرفر ftp و لكن لم يتم رفع الملف: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:
ما هو الحل للكود شباب ؟