[الشاكي لله]

ahmed hussien كتب :مثال فى المرفقات



شاهد هذا الموضوع هنا



لا اعرف

ههههههههههههه عجبني ردك السريع

--

لرفع ملف نصي للftp :

PHP كود :

Private Sub ToFTPButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToFTPButton.Click
        Dim tempFilePath As String = Application.StartupPath + "/temp.txt"
        Dim content As String = richTextBox1.Text

        System.IO.File.WriteAllText(tempFilePath, content)

        UploadFile("ftp://tessssst.com", "user", "pass", tempFilePath)

        Try
            System.IO.File.Delete(tempFilePath)
        Catch
        End Try
    End Sub



    Public Sub UploadFile(ByVal host As String, ByVal username As String, ByVal password As String, ByVal filePath As String)
        Dim ftpReq As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(host & "/" & System.IO.Path.GetFileName(filePath) & System.IO.Path.GetExtension(filePath)), System.Net.FtpWebRequest)
        ftpReq.Credentials = New System.Net.NetworkCredential(username, password)
        ftpReq.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim data As Byte() = System.IO.File.ReadAllBytes(filePath)

        ftpReq.ContentLength = data.Length
        Dim st As System.IO.Stream = ftpReq.GetRequestStream()
        st.Write(data, 0, data.Length)
        st.Close()

        Dim response As System.Net.FtpWebResponse = Nothing
        Try
            response = DirectCast(ftpReq.GetResponse(), System.Net.FtpWebResponse)
            MessageBox.Show("Upload File Complete, status : " & response.StatusDescription)
        Catch
            MessageBox.Show("Upload File Faild")
        End Try
    End Sub 


لمزيد من المعلومات قم بزيارة صفحتنا على الفيسبوك .. امزح امزح خخخخ

هنا