主题：关于远程升级不成功的求救。。

'主要DOS命令说明--------------------
' cls 清除屏幕.
' 无参数.

' xcopy 复制文件和目录树.
' 参数
' /s 复制目录和子目录,不包括空目录.
' /e 复制目录和子目录,包括空目录.与 /s /e 相同.
' /q 复制时不显示文件名.
' /y 取消提示以确认要覆盖现有目标文件.

' rd 删除一个目录.(请谨慎操作!!)
' 参数
' /s 除目录本身外,还将删除指定目录下的所有子目录和文件.用于删除目录树.
' /q 安静模式,带 /s 删除目录树时不要求确认.

'----------------------------------------

'定义变量--------------------
Dim ename As String = "行销部日常管理系统.exe" '管理系统运行文件名
Dim utmp As String = "D:\UpdateTemporary" '存放升级文件的临时文件夹.【千万不要设置成磁盘的根目录!!因为升级后会删除临时文件夹!!】
Dim utmp1 As String = utmp & "\1" '存放解压Publish.zip或update.zip文件的临时文件夹
Dim upath As String '需要升级的路径,待用
Dim upathPub As String = ProjectPath & ".." '需要升级的项目Publish路径,".."表示上一级目录
Dim upathPro As String = ProjectPath '需要升级的项目Project路径
Dim dfile As String '需要下载的zip文件,待用
Dim dpath As String '需要下载的zip文件保存路径,待用

Dim vtxt As String = "Version.txt"
Dim pzip As String = "Publish.zip"
Dim utxt As String = "update.txt"
Dim uzip As String = "update.zip"

Dim uvtxt As String = utmp & "\Version.txt"
Dim upzip As String = utmp & "\Publish.zip"
Dim uutxt As String = utmp & "\update.txt"
Dim uuzip As String = utmp & "\update.zip"

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

Dim zip As New ZipFile

'连接FTP服务器--------------------
If ftp.Connected = False '如果FTP没有连接
    If ftp.Connect Then '连接FTP
        MessageBox.Show("FTP服务器连接成功!")
    Else
        MessageBox.Show("FTP服务器连接失败!")
        Return
    End If
End If

'检测升级所需的4个文件--------------------
If ftp.FileExists(vtxt) = False OrElse ftp.FileExists(pzip) = False OrElse ftp.FileExists(utxt) = False OrElse ftp.FileExists(uzip) = False Then
    MessageBox.Show("服务器缺少升级所需文件!" & vbcrlf & vtxt & "  " & pzip & "  " & utxt & "  " & uzip,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Return
End If

'校验目录--------------------
If FileSys.DirectoryExists(utmp) = False Then
    FileSys.CreateDirectory(utmp)
End If
If FileSys.DirectoryExists(utmp1) = False Then
    FileSys.CreateDirectory(utmp1)
End If

'升级判断--------------------
If ftp.Download(vtxt,uvtxt) And ftp.Download(utxt,uutxt) Then
    MessageBox.Show(vtxt & "  " & utxt & "下载完成!")
    Dim sver As Date = FileSys.ReadAllText(uvtxt) '服务器Version.txt
    Dim cver As Date = FileSys.ReadAllText(ProjectPath & "\Catch\Version.txt") '客户端Version.txt
    Dim spub As Date = FileSys.ReadAllText(uutxt) '服务器update.txt
    Dim cpub As Date = PublishDate '客户端发布日期
    MessageBox.Show("服务器Foxtable版本:" & sver & "  项目发布日期:" & spub & vbcrlf & "客户端Foxtable版本:" & cver & "  项目发布日期:" & cpub)
    If sver > cver Then '如果服务器Foxtable版本大于客户端版本
        MessageBox.Show("程序版本需要升级!")
        upath = upathPub '项目Publish路径,项目跨版本完全升级
        dfile = pzip
        dpath = upzip
    Else
        MessageBox.Show("程序已经是最新版本!" & vbcrlf & "将检查文件版本……")
        If spub > cpub Then '如果服务器项目发布日期大于客户端发布日期
            MessageBox.Show("文件版本需要升级!")
            upath = upathPro '项目Project路径,项目同版本升级
            dfile = uzip
            dpath = uuzip
        Else
            MessageBox.Show("您正在使用的已经是最新版本!")
            FileSys.DeleteDirectory(utmp,2,2) '删除临时文件夹
            Return '终止执行后续代码,直接退出
        End If
    End If
Else
    MessageBox.Show(vtxt & "  " & utxt & "下载失败!")
    Return
End If