\'连接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