主题：ftp能连接却不能下载

'连接FTP服务器

Dim ftp As New FtpClient

ftp.Host = ftp_Host  'ftp服务器地址

ftp.Account = ftp_User  'ftp登录帐号

ftp.Password = ftp_Pwd   'ftp登录密码

ftp.Port = ftp_Port  'ftp端口号

'ftp.TimeOut = 2000

ftp.RootDir = "\Update" '如果升级所需文件刚好放置在FTP的根目录下,可以不用设置此属性;否则需要设置目录路径.

If TryConnectHost(ftp_Host) Then  '如果ftp的网络是通的检测是否有升级包

    If ftp.Connect Then '如果FTP没有连接,用备用域名连接

        '----新增临时升级目录----

        If FileSys.DirectoryExists("D:\UpdateTemporary") = False Then

            FileSys.CreateDirectory("D:\UpdateTemporary")

        End If

        msgbox(ftp.Host & "_" & ftp.Port & "_" & ftp.Account & "_" & ftp.Password)

        '---先下载ftp服务器上的日期文件----------

        If ftp.Download("\Update\Update.Txt","D:\UpdateTemporary\Update.Txt") = True Then '如果下载升级日期文件成功

            msgbox(2)

          Dim ud() As String = FileSys.ReadAllText("D:\UpdateTemporary\Update.Txt").Split("|")

         ............

        End If

    End If

End If