主题：远程自动更新问题

1、ftp是否正确搭建了？ http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1

2、能否通过地址，在ie浏览器访问ftp？如 ftp://192.168.1.108/

3、你填写的升级路径，是怎么写的？

在ie浏览器那里，输入地址 ftp://b***:A***@47.96.7.165/FTP/Update/  能否进入文件夹看到文件？

访问这个地址是否可以？登陆后显示什么？

ftp://47.96.7.165

ie浏览器那里显示的地址是什么？和你这个有什么差距？

ftp://47.96.7.165/FTP/Update/

这个情况下，ie浏览器那里，显示的地址是什么？贴出看看。

可以进入看到【包括update文件夹下面的3个update文件都能显示 】？

那说明你ftp没有问题。账号密码发出来测试。

正确的升级路径这样写，账号密码自己加上

ftp://47.96.7.165/Update/

我测试这个地址下载没问题，只要代码正常执行，自动升级肯定没问题。

Network.DownloadFile("ftp://bigpeng:Aa123456@47.96.7.165/Update/update1.zip", "d:\a.zip", "", "", True, 10000, True)

方法一：代码改成这样

try
    UpdatePath = "ftp://bigpeng:Aa123456@47.96.7.165/Update/"
    Network.DownloadFile(updatePath & "update.txt", "d:\temp\update.txt" ,"" ,"" ,True, 100000, True) '下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText("d:\temp\update.txt").Split("|") '获取文件内容
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期
    If Sdate2 > Cdate2 Then
        msgbox("大版本")
        Network.DownloadFile(updatePath & "update2.zip", "d:\temp\update2.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = "d:\temp\"
        Syscmd.Project.Update(False,False)
    ElseIf Sdate1 > Cdate1 Then
        msgbox("小版本")
        Network.DownloadFile(updatePath & "update1.zip", "d:\temp\update1.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = "d:\temp\"
        Syscmd.Project.Update(False,False)
    End If
   
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try