获取ftp服务器文件的大小

 Public Function GetFileSize(ByVal remoteFile As String,
                                ByVal host As String,
                                ByVal username As String,
                                ByVal password As String) As Long

        '创建FtpWebRequest类实例
        Dim URI As String = host & remoteFile
        Dim ftp As System.Net.FtpWebRequest = CType(FtpWebRequest.Create(URI), FtpWebRequest)

        '通信凭据主要是用户名和密码
        ftp.Credentials = New System.Net.NetworkCredential(username, password)

        '设置ftp方法为获取文件的大小
        ftp.Method = System.Net.WebRequestMethods.Ftp.GetFileSize

        '设置请求完后销毁连接
        ftp.KeepAlive = False

        '设置传输类型为文本
        ftp.UseBinary = False

        ftp.Method = System.Net.WebRequestMethods.Ftp.GetFileSize


        '获取请求回应
        Dim ftpresponse As FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse) '/返回响应

        '获取文件长度
        Dim longstream As Long = ftpresponse.ContentLength