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错误,等调试完再发