主题：升级提示窗口可否编辑

具体怎么做呢?二楼代码不大懂.

注释都很明白了，到帮助搜索不懂的代码的用法，创建一个项目去测试运行结果。

还是没搞定，老是提示下载失败。升级文件和说明文件文件所在文件夹 \\192.168.1.66\DsCableERP数据$\版本更新
说明文件下载到项目文件目录.以下是我的小升级代码

try
    Network.DownloadFile("\\192.168.1.66\DsCableERP数据$\版本更新\升级说明.txt", ProjectPath & "升级说明.txt" ,"" ,"" ,False, 100000, True) '下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText("d:\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 '如果服务器程序发布日期大于客户端发布日期(大升级)
        '升级代码
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        '升级代码
        Network.DownloadFile("\\192.168.1.66\DsCableERP数据$\版本更新\升级说明.txt", ProjectPath & "升级说明.txt" ,"" ,"" ,False, 100000, True) '下载升级说明.txt文件,覆盖现有文件
        Dim tip As String = FileSys.ReadAllText(ProjectPath & "升级说明.txt") '获取文件内容
        msgbox(tip)
    Syscmd.Project.Update(False,True)   
    End If
    catch ex As exception
    msgbox("下载失败")
End try

 局域网的文件，是不需要下载的啊，你直接打开或者拷贝都可以啊

 

http://www.foxtable.com/webhelp/scr/0331.htm

 

 

 

上面的代码能帮我完善吗?

 不需要用 DownloadFile，直接打开或者拷贝文件，即可。

文本文件中文字体怎么乱码呀

此主题相关图片如下：snap1.jpg

Dim tip As String = FileSys.ReadAllText("\\192.168.1.66\DsCableERP数据$\版本更新\升级说明.txt") '获取文件内容
msgbox(tip)
Syscmd.Project.Update(False,True)

直接这样就可以了吗?