主题：远程自动更新问题

方法一：代码改成这样

 

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

方法二：完完全全按照这个教程，开启pasv模式

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1

 

 

方法三：使用iis搭建一个网站，然后用http://47.96.7.165/Update/这样的路径

 

https://www.baidu.com/baidu?wd=iis%E9%85%8D%E7%BD%AE%E7%BD%91%E7%AB%99

 

用了方法1甜版写的代码，已经测试成功，谢谢强大的甜版

另外，请问甜版，如果还有另一个项目也需要实现远程更新功能，是另外再建一个“update1”的文件夹吗

不同项目的文件当然要放到不同的文件夹

甜版，不好意思自动更新还是有问题，我在自己电脑上测试成功，但是在别的电脑上测试提示：对路径D:/temp的访问被拒绝，不知是什么原因

Network.DownloadFile(updatePath & "update.txt", "d:\temp\update.txt" ,"" ,"" ,True, 100000, True) '下载update.txt文件

甜版在吗？是不是我在云服务器上还需要怎么设置？麻烦再帮忙解决下，谢谢