基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

   与FTP服务器联机沟通之前，先确定应用程序要执行的操作，如上传下载文件、 目录增删列举等。

       FTP服务器在接收到应用程序引用GetResponse（）方法要求返回操作消息的时候，会根据应用程序所指定的方法进行相关操作，故要在此之前预先指定FTP 所要执行的方法。

    简单地说：联机发起的同时，也发送操作指令。回应指令的同时也完成客户端的指令。

    
   Private Sub DirOperation()
        Try
            Dim frq As FtpWebRequest = CType(FtpWebRequest.Create(txtFTP.Text), FtpWebRequest) '地址
            Dim fcr As New NetworkCredential(txtUser.Text, txtPassword.Text)   '用户密码
            Dim frp As FtpWebResponse

            frq.Credentials = fcr '认证信息
            Select Case True
                Case rdoMake.Checked   '新建目录
                    frq.Method = WebRequestMethods.Ftp.MakeDirectory
                Case rdoDele.Checked  '删除目录
                    frq.Method = WebRequestMethods.Ftp.RemoveDirectory
                Case rdoReName.Checked '更改目录
                    If txtNewFTP.Text <> "" Then
                        frq.Method = WebRequestMethods.Ftp.Rename
                        frq.RenameTo = txtNewFTP.Text
                    End If
                Case Else
                    MsgBox("未选择！")
            End Select

            frp = CType(frq.GetResponse, FtpWebResponse) '发送、操作、并返回
            frp.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub