VB.NET 网络云服务器的FTP操作

 

1.在网上申请免费云服务器或免费虚拟主机，我采用的是三丰云。

2.给FTP服务器添加文件夹

Public Sub AddFile()

        Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
        Dim st As Stream, fs As FileStream
        Dim byt(1024) As Byte, intCount As Integer


        Try
            frq = CType(WebRequest.Create(New Uri("IP" & “文件名”)), FtpWebRequest)
            fcr = New NetworkCredential("ark", "9887")
            frq.Credentials = fcr

            frq.Method = WebRequestMethods.Ftp.MakeDirectory
            frp = CType(frq.GetResponse, FtpWebResponse)
            frp.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        MsgBox("完成")
    End Sub

3.下载FTP中的文件

    Public Sub DownFile()

        Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
        Dim st As Stream, fs As FileStream
        Dim byt(1024) As Byte, intCount As Integer

        Try
            frq = CType(WebRequest.Create(New Uri("IP/文件")), FtpWebRequest)
            fcr = New NetworkCredential("ark", "9887")
            frq.Credentials = fcr
            frq.Method = WebRequestMethods.Ftp.DownloadFile
            frq.UseBinary = True

            frp = CType(frq.GetResponse, FtpWebResponse)
            st = frp.GetResponseStream
            fs = New FileStream("D:\124.txt", FileMode.Create)

            Do
                intCount = st.Read(byt, 0, 1024)
                fs.Write(byt, 0, intCount)
            Loop While intCount > 0

            fs.Close()
            frp.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        MsgBox("完成")
    End Sub

4.上传出现了550错误，等调试完再发