主题：[求助]我的自动升级代码错在哪儿了？(自己解决了）

我点击上传文件按钮、下载文件按钮都成功，但自动升级按钮返回404（文件找不到）错误信息，请大家帮我找错，谢谢了！

 

上传文件按钮事件——成功

Dim IP As String = User.ExtendedValues("服务器地址") '获得用户登录时输入的IP

Dim ftp1 As new ftpclient

ftp1.TimeOut=20000 '用于设置尝试操作的毫秒数

ftp1.host=ip '设置单位ftp服务器地址

ftp1.Account = "shenyaoliang" '设置ftp登录用户名

ftp1.password = "****" '设置ftp登录密码

If ip="10.22.1.40" Then  '内网

    ftp1.upload("d:\项目管理系统\数据文件\update.txt","\项目管理系统\update.txt",True)

    ftp1.upload("d:\项目管理系统\数据文件\update.zip","\项目管理系统\update.zip",True)

Else ‘外网

    ftp1.upload("d:\项目管理系统\数据文件\update.txt","/项目管理系统/update.txt",True)

    ftp1.upload("d:\项目管理系统\数据文件\update.zip","/项目管理系统/update.zip",True)

End If

 

下载文件按钮事件——成功

Dim IP As String = User.ExtendedValues("服务器地址") '获得用户登录时输入的IP

‘ Dim ftp1 As new ftpclient

‘ ftp1.TimeOut=20000 '用于设置尝试操作的毫秒数

‘ ftp1.host=ip '设置单位的ftp服务器地址

‘ ftp1.Account = "shenyaoliang" '设置ftp登录用户名

‘ ftp1.password = "****" '设置ftp登录密码

If ip="10.22.1.40" Then  '内网

    ftp1.download("\项目管理系统\update.zip","d:\项目管理系统\数据文件\update0.zip")

Else '外网

    ftp1.download("/项目管理系统/update.zip","d:\项目管理系统\数据文件\update0.zip")

End If

 

自动升级按钮事件——成功（用IIS建立新网站，IP地址为内网地址，端口不要用默认的80，并直接指向升级路径）

Dim IP As String = User.ExtendedValues("服务器地址") '获得用户登录时输入的IP

UpdatePath="http://" & ip & ":801" '升级路径

If ip="10.22.1.40" Then  '内网

    RemoteUpdate =False

Else '外网

    RemoteUpdate=True

End If

Syscmd.Project.Update(True,True)