笔记12：VB.net中的FTP操作：创建、删除、查询、下载、上传

    FtpWebRequest与FtpWebResponse类用来与特定FTP服务器进行沟通。

    FtpWebRequest 与 FtpWebResponse 类分别继承了 WebRequest 与 WebRequest。
        FtpWebRequest负责将指令传送至FTP服务器；
        FtpWebResponse则封装服务器所返 回的消息。

    FtpWebRequest  封装FTP客户端的功能集成；
    FtpWebResponse 封装FTP服务器的返回消息，从而取得FTP返回的消息码与文件数据，这些数据内容以数据流的形式返回。

    FtpStatusCode列举类表示FTP操作返回的状态代码，它的列举值代表各种FTP操作的状态描述。例如：
          AccountNeeded                 表示服务器上需要用户账户；
          BadCommandSequence    表示命令的顺序不正确；
          FileActionOK                      指定所要求的文件传输动作成功执行完成等。


一、联机
         若要建立FTP联机，进而与FTP服务器沟通之前，需建立FtpWebRequest实体对象。
          同样，FTP协议也需调用WebRequest的Create()方法建立FtpWebRequest 实体：

             Dim myFtpWebRequest As FtpWebRequest = CType(FtpWebRequest.Create(target),FtpWebRequest)

         参数target为FTP配置的网络资源URI。同前面HttpWebRequest一样，FtpWebRequest.Create(target)返回类型是WebRequest，所以需要转类型为FtpWebRequest。

         建立FtpWebRequest对象后，即可从FtpWebRequest.GetResponse()取得封装服务器响应消息的FtpWebResponse对象，完成应用程序所要进行的FTP操作。

            Using myResponse As FtpWebResponse =CType(myFtpWebRequest.GetResponse, FtpWebResponse)

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

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

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

     FTP操作由WebRequestMethods.Ftp类所定义，字段集如下：

          1、文件操作

AppendFile               FTP APPE通信协议方法，用来将文件附加到FTP服务器上的现有文件
DeleteFile                 FTP DELE通信协议方法，用来删除FTP服务器上的文件
DownloadFile           FTP RETR通信协议方法，用来从FTP服务器下栽文件
UploadFile                将文件上传到FTP服务器的FTP STOR通信协议方法
UploadFileWithUniqucName  将文件名唯一的文件上传到FTP服务器的FTP STOU通信协议方法
GetFileSize               表示FTP SIZE通信协议方法，用来获取FTP服务器上文件的大小

          2、目录操作
PrintWorkingDirectory   表示FTP PWD通倍协议方法，用来显示当前工作目录的名称
ListDirectory                  表示FTP NLIST通信协议方法，用来取得FTP服务器上文件的简短列表
ListDirectoryDetails       表示FTP LIST通信协议方法，用来取得FTP眼务器上文件的详细列表
MakeDirectory              表示FTP MKD通信协议方法，用来在FTP服务器上建立目录
RemoveDirectory          删除目录的FTP RMD通信协议方法
Rename                        重新命名目录的FTP RENAME通信协议方法

        上面FTP操作方法通过FileWebRequestMethod属性的设置：

             myFtpWebRequest.Method = WebRequestMethods.Ftp.DownloadFile

四、FTP认证信息
          FTP服务器一般会要求提供登录账号与密码，只有完成验证才能登录FTP服务器，进行FTP操作。

         认证信息直接通过FtpWebRequest.Credentials属性进行设置.

            Public Overrides Property Credentials As ICredentials

         需指定一个实际应用ICredentials接口的对象，用来封装账号与密码等相关信息。
         例如NetworkCredential对象，通过FtpWebRequest.Credentials属性随着myFtpWebRequest对象传递到FTP服务器中：

            Dim myNetworkCredential = New NetworkCredential(username, uaerpwd)
            myFtpWebRequest.Credentials = myNetworkCredential

五、完成FTP功能的操作
         完成任意一种FTP操作，应完成以下步骤：
              (1)WebRequest.Create()方法建立FtpWebRequest 实体。
              (2)指定认证信息FtpWebRequest.Credentials。
              (3)指定操作种类WebRequestMethods.Ftp。
              (4)取得FtpWebRequest数据流，进行数据传输操作。
              (5)FtpWebRequest.GetResponse()方法取得FTP服务器响应信息对象 FtpWebResponse。
              (6)取得FtpWebRequest数据流，进一步读取服务器端响应的数据内容。
         1-3步是必须的（连接、认证、操作）,一些操作如上传与下载还要4-6步。




六、FTP目录操作
        即对FTP服务器上目录进行新增、删除、修改，甚至目录列举操作。

        1、新建、删除、更名目录
                         

Imports System.Net

Public Class Form1
    Private Sub txtOpera_Click(sender As Object, e As EventArgs) Handles txtOpera.Click
        DirOperation()
    End Sub

    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
End Class

           2、列举目录
              向服务发送列举目录指令，服务器端会将所有指定目录下面的子目录及文件名写入数据流，然后返回到客户端，因此列举目录的时候必须进一步取得响应对象的数据流对象：

                Dim myStream As Stream = myResponse.GetResponseStream（）

             取得服务器FtpWebResponse.GetResponseStream()返回的数据流，对该流进行读写即可得目录列举信息。

             要取得目录列举信息，需设置 Method属性为ListDirectory或是ListDirectoryDetails：
                       ListDirectory              只单纯地列举文件目录名称；
                       ListDirectoryDetails   进一步列举相关的文件目录特性。
                               

Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
    Private Sub btnFtpList_Click(sender As Object, e As EventArgs) Handles btnFtpList.Click
        Try
            Dim frq As FtpWebRequest = CType(FtpWebRequest.Create(txtFTP.Text), FtpWebRequest)
            Dim cre As New NetworkCredential(txtUser.Text, txtPassword.Text)
            Dim frp As FtpWebResponse
            Dim st As Stream
            Dim sr As StreamReader

            frq.Credentials = cre
            If rdoSimple.Checked = True Then
                frq.Method = WebRequestMethods.Ftp.ListDirectory
            Else
                frq.Method = WebRequestMethods.Ftp.ListDirectoryDetails
            End If

            frp = CType(frq.GetResponse, FtpWebResponse)
            st = frp.GetResponseStream
            sr = New StreamReader(st, Encoding.UTF8) '对响应流读取
            txtListDrectory.Text = sr.ReadToEnd

            frp.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

七、FTP文件操作
       （一）FTP下载
            通过FtpWebResponse.GetResponseStream（）用取得服务器（要下载的）数据流，再通过文件流FileStream用字节组写入文件，来完成FTP的下载过程。
                    

Imports System.Net
Imports System.IO

Public Class Form1
    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
        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(txtFtp.Text)), FtpWebRequest)
            fcr = New NetworkCredential(txtUser.Text, txtPassword.Text)
            frq.Credentials = fcr
            frq.Method = WebRequestMethods.Ftp.DownloadFile
            frq.UseBinary = True

            frp = CType(frq.GetResponse, FtpWebResponse)
            st = frp.GetResponseStream
            fs = New FileStream(txtSave.Text, 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
    End Sub
End Class

         （二）FTP上载
                上传与下载相反，下载时通过FtpWebResponse.GetResponseStream()方法取得数据流，再对该流进行写入本地文件。

               上传时，则是在请求流FtpWebRequest.GetRequestStream()加载数据（文件）,由此完成上传任务。

               请求流格式：

                 Public Overrides Function GetRequestStream As Stream

               此方法返回一个Stream数据流对象，写入此数据流的数据内容，进一步被送到要求链接的服务器，完成上传操作。

                                             

Imports System.Net
Imports System.IO

Public Class Form1
    Private Sub btnFtp_Click(sender As Object, e As EventArgs) Handles btnFtp.Click
        Dim frq As FtpWebRequest, frp As FtpWebResponse
        Dim st As Stream, fs As FileStream
        Dim byt(1024) As Byte, intCount As Integer

        frq = CType(WebRequest.Create(txtFile.Text), FtpWebRequest)
        frq.Credentials = New NetworkCredential(txtUser.Text, txtPassword.Text)
        frq.Method = WebRequestMethods.Ftp.UploadFileWithUniqueName

        st = frq.GetRequestStream
        fs = New FileStream(txtFile.Text, FileMode.Open, FileAccess.Read)
        Do
            intCount = fs.Read(byt, 0, 1024) '将文件流加载到请求流上
            st.Write(byt, 0, intCount)
        Loop While (intCount > 0)

        frp = CType(frq.GetResponse, FtpWebResponse)
        frp.Close()
        MsgBox("完成！")
    End Sub
End Class

八、WebClient替代FTP的上传与下载
           WebClient替代FTP单纯的下载与上传，将更简捷。

           WebClient的两方法UploadFile（）与DownloadFile()提供上传下下载功能：

              Public Sub DownloadFile ( address As Uri, fileName As String)
              Public Function UploadFile ( address As Uri, fileName As String )As Byte