使用递归+.Net FtpWebRequest获得远程服务器的目录结构树！

TreeView1是.Net TreeView控件。请在WinForm界面上添加一个控件

Form1_load中的Dec是实例化ftpClient.vb的一个对象，ftpDetails是用来存储FTP登录凭据的。

 1Public Class Form1Class Form1
 2
 3    Dim ftp As ftpClient
 4    Dim LocalFileList As New DataTable
 5
 6    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 7        Dim Dec As New ftpClient.FtpDetails("www.cnblogs.com", 21, "cnblogVIP", "**********")
 8        ftp = New ftpClient(Dec)
 9        loadFtpTree(TreeView1.Nodes, "") '调用此代码可以装载远程FTP结构树

    End Sub

    '这个方法用于获得远程目录及文件树
    Private Sub loadFtpTree()Sub loadFtpTree(ByVal Nodes As TreeNodeCollection, ByVal Path As String)
        ''获得各级分类
        Dim sNode As Integer = -1
        ''通过FTP获得当前目录列表
        Dim result As String = ftp.GetFileList(Path)
        Dim files() As String = Split(result, vbCrLf) '把FTP服务器返回的文本，分离出是目录还是文件，文件或目录名，文件大小
        Dim ffi As New ftpClient.FtpListFileInfo
        If files.Length > 0 Then
            '加载节点
            Dim I As Integer
            For I = 0 To files.Length - 2
                ffi.ParserString(files(I)) '对返回的单行做分割。分离出是目录还是文件，文件或目录名，文件大小
                If ffi.IsDirectory = True And ffi.FileName <> ".." And ffi.FileName <> "." Then '如果是有效的目录。
                    sNode += 1
                    Nodes.Add(0, ffi.FileName) '由于是目录，前面的参数保存了类似.Tag一样的作用，这里保存了文件的size
                    Dim newpath As String = Path + "/" + ffi.FileName 'FileName如果是文件表示文件名，否则表示目录名
                    Application.DoEvents()
                    '读取当前节点的子节点加载()
                    loadFtpTree(Nodes(sNode).Nodes, newpath) '递归检查当前目录下是否有子目录
                ElseIf ffi.IsDirectory = False Then '如果是文件
                    sNode += 1
                    Nodes.Add(ffi.FileSize.ToString, ffi.FileName) '加入到节点中
                End If
            Next
        End If
        TreeView1.ExpandAll()
    End Sub

 

  1Imports System.Net
  2Imports System.IO
  3
  4Public Class ftpClientClass ftpClient
  5
  6    Public Ftp As FtpDetails = Nothing
  7
  8    Private ftpNetworkCredential As New NetworkCredential
  9
 10    Public Event ErrorMessage(ByVal Err As FtpError)
 11
 12    Public Class FtpErrorClass FtpError
 13        Public ErrUrl As String = ""
 14        Public ErrMsg As String = ""
 15        Public Err As ErrType = ErrType.文件上传
 16
 17        Public Enum ErrTypeEnum ErrType
 18            文件上传
 19            目录遍历
 20            目录创建
 21            列表清单
 22        End Enum
 23    End Class
 24
 25    Public Sub New()Sub New(ByVal _FTPDetails As FtpDetails)
 26        ftpNetworkCredential.UserName = _FTPDetails.UserName
 27        ftpNetworkCredential.Password = _FTPDetails.PassWord
 28        Ftp = _FTPDetails
 29    End Sub
 30
 31    Public Class FtpDetailsClass FtpDetails
 32        Private _Host As String = ""
 33        Private _Port As Integer = 0
 34        Private _UserName As String = ""
 35        Private _PassWord As String = ""
 36
 37        Public Sub New()Sub New(ByVal ftpHost As String, ByVal ftpPort As Integer, ByVal ftpUserName As String, ByVal ftpPassword As String)
 38            If ftpHost = "" Then
 39                Throw New Exception("请提供FTP服务器名称或地址！")
 40            End If
 41            If ftpPort <= 0 Or ftpPort > 65535 Then
 42                Throw New Exception("提供的端口不合法！")
 43            End If
 44            If ftpUserName = "" Then
 45                ftpUserName = "anonymous"
 46            End If
 47            If ftpPassword = "" Then
 48                ftpPassword = "abc@qq.com"
 49            End If
 50            _Host = ftpHost
 51            _Port = ftpPort
 52            _UserName = ftpUserName
 53            _PassWord = ftpPassword
 54        End Sub
 55
 56        /**/''' <summary>
 57        ''' 获得或设置FTP服务器IP地址（或域名）
 58        ''' </summary>
 59        ''' <value></value>
 60        ''' <returns></returns>
 61        ''' <remarks></remarks>
 62        Property Host()Property Host() As String
 63            Get
 64                Return _Host
 65            End Get
 66            Set(ByVal value As String)
 67                _Host = value
 68            End Set
 69        End Property
 70
 71        /**/''' <summary>
 72        ''' 获得或设置FTP服务器端口
 73        ''' </summary>
 74        ''' <value></value>
 75        ''' <returns></returns>
 76        ''' <remarks></remarks>
 77        Property Port()Property Port() As Integer
 78            Get
 79                Return _Port
 80            End Get
 81            Set(ByVal value As Integer)
 82                _Port = value
 83            End Set
 84        End Property
 85
 86        /**/''' <summary>
 87        ''' 获得或设置FTP登录密码
 88        ''' </summary>
 89        ''' <value></value>
 90        ''' <returns></returns>
 91        ''' <remarks></remarks>
 92        Property UserName()Property UserName() As String
 93            Get
 94                Return _UserName
 95            End Get
 96            Set(ByVal value As String)
 97                _UserName = value
 98            End Set
 99        End Property

        /**/''' <summary>
        ''' 获得或设置FTP密码
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Property PassWord()Property PassWord() As String
            Get
                Return _PassWord
            End Get
            Set(ByVal value As String)
                _PassWord = value
            End Set
        End Property
    End Class

    Public Function GetFileList()Function GetFileList(ByVal strPath As String) As String
        Try
            Dim ftpUri As String = "ftp://" + Ftp.Host + ":" + Ftp.Port.ToString
            If strPath <> "" Then
                ftpUri += "/" + strPath
            End If
            Dim uri As New Uri(ftpUri)

            Dim listRequest As FtpWebRequest '= DirectCast(WebRequest.Create(uri), FtpWebRequest)
            listRequest = FtpWebRequest.Create(uri)
            listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails

            listRequest.Credentials = ftpNetworkCredential
            listRequest.UsePassive = True
            Dim listResponse As FtpWebResponse = DirectCast(listRequest.GetResponse(), FtpWebResponse)
            Dim responseStream As Stream = listResponse.GetResponseStream()
            Dim readStream As New StreamReader(responseStream, System.Text.Encoding.[Default])

            Dim Result As String = ""
            If readStream IsNot Nothing Then
                Result = readStream.ReadToEnd()
            End If

            'MessageBox.Show(String.Format("状态: {0},{1}", listResponse.StatusCode, listResponse.StatusDescription))

            listResponse.Close()
            responseStream.Close()
            readStream.Close()
            Return Result
        Catch ex As Exception
            Dim Err As New FtpError
            Err.ErrMsg = ex.Message
            Err.ErrUrl = strPath
            Err.Err = FtpError.ErrType.列表清单
            RaiseEvent ErrorMessage(Err)
            Return ""
        End Try
    End Function

    /**/''' <summary>
    ''' STR Path是由/开头的一个基于根目录的地址
    ''' </summary>
    ''' <param name="strPath"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CreateDirectory()Function CreateDirectory(ByVal strPath As String) As Boolean
        Try
            Dim ftpUri As String = "ftp://" + Ftp.Host + ":" + Ftp.Port.ToString
            If strPath <> "" Then
                ftpUri += "/" + strPath
            End If
            Dim uri As New Uri(ftpUri)

            Dim listRequest As FtpWebRequest
            listRequest = FtpWebRequest.Create(uri)
            listRequest.Method = WebRequestMethods.Ftp.MakeDirectory

            listRequest.Credentials = ftpNetworkCredential
            listRequest.UsePassive = True
            Dim listResponse As FtpWebResponse = DirectCast(listRequest.GetResponse(), FtpWebResponse)
            'MessageBox.Show(String.Format("状态: {0},{1}", listResponse.StatusCode, listResponse.StatusDescription))
            listResponse.Close()
            Return True
        Catch ex As Exception
            Dim Err As New FtpError
            Err.ErrMsg = ex.Message
            Err.ErrUrl = strPath
            Err.Err = FtpError.ErrType.目录创建
            RaiseEvent ErrorMessage(Err)
            Return False
        End Try
    End Function

    Public Function uploadFile()Function uploadFile(ByVal strPath As String, ByVal strFullName As String) As Boolean
        Dim ftpUri As String = "ftp://" + Ftp.Host + ":" + Ftp.Port.ToString
        If strPath <> "" Then
            ftpUri += "/" + strPath
        End If
        Dim reqFTP As FtpWebRequest
        reqFTP = FtpWebRequest.Create(ftpUri)
        reqFTP.Credentials = ftpNetworkCredential
        reqFTP.KeepAlive = True
        reqFTP.Method = WebRequestMethods.Ftp.UploadFile
        reqFTP.UseBinary = True
        Dim f As New FileInfo(strFullName)

        reqFTP.ContentLength = f.Length

        Dim buffLength As Integer = 2048
        Dim buff(buffLength) As Byte
        Dim contentLen As Long
        Dim Fs As FileStream = f.OpenRead
        Try
            Dim strm As Stream = reqFTP.GetRequestStream()
            '每次读文件流的2KB
            contentLen = Fs.Read(buff, 0, buffLength)
            Dim StartBye As Long = 0
            While contentLen <> 0
                strm.Write(buff, 0, contentLen)
                contentLen = Fs.Read(buff, 0, buffLength)
                StartBye += contentLen
            End While
            Fs.Close()
            strm.Close()
            Return True
        Catch ex As Exception
            Dim Err As New FtpError
            Err.ErrMsg = ex.Message + " 本地文件：" + strFullName
            Err.ErrUrl = strPath
            Err.Err = FtpError.ErrType.文件上传
            RaiseEvent ErrorMessage(Err)
            Return False
        End Try
    End Function


    Public Class FtpListFileInfoClass FtpListFileInfo
        Public IsDirectory As Boolean = False
        Public FileSize As Long = 0
        Public FileName As String = ""

        Public Sub ParserString()Sub ParserString(ByVal str As String)
            If str = "" Then Exit Sub
            Try
                If Strings.Left(str, 1) = "d" Then
                    IsDirectory = True
                Else
                    IsDirectory = False
                End If
                '取得文件长度
                FileSize = CLng(Trim(Strings.Mid(str, 31, 12)))
                FileName = Trim(Strings.Right(str, str.Length - 55))
            Catch ex As Exception
                IsDirectory = False
                FileSize = 0
                FileName = ""
            End Try
        End Sub
    End Class
End Class