If Dir(SERVERPATH & "\共享小黑板.exe") <> vbNullString Then '判断新版本程序是否存在
getfso = fso.getfile(App.EXEName & ".exe").datelastmodified
getfso1 = fso.getfile(SERVERPATH & "\共享小黑板.exe").datelastmodified
If DateDiff("s", getfso, getfso1) <> 0 Then
fjls = MsgBox("有最新版本，你要升级吗？", 36, "共享小黑板提示")
If fjls = 6 Then
Open "c:\update.bat" For Output As #1
Print #1, "@璐村惂鐢ㄦ埛_000076K馃惥 off"
Print #1, "echo 开始下载文件"
Print #1, "copy " & SERVERPATH & "\共享小黑板.exe " & App.Path
Print #1, "mshta vbscript:msgbox(""升级已完成，请重新运行程序。感谢你的使用！"",48,"" 提示 "")(window.close)"
Print #1, ""
Close #1
Shell "c:\update.bat"
End
End If '判断是否确定升级的结束
End If '判断新旧版本是否有时间差异的结束
End If '判断新版本程序是否存在的结束