\'主要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