主题：代码疑问

自动升级此项功能很好，很实用，各位高手加油啊！最好老六写一个放到帮助中去。

 

不会的，假设下载的文件名称为“test.Table”，保存在项目目录下的“test”文件夹中

 

FileSys.CopyFile(ProjectPath & test & "\test.Table",FileSys.GetFileInfo(ProjectFile).Name,True)

系統更新，應該是整個文件更新吧．test.Table　這只是單單一個文件，例：如果我的菜單發生變化．等等之類的更新．．

 

整個系統更新，應該是複製整個文件夾吧．

C版是這樣的嗎？還是只需要更新一個文件

如果不是单个的文件可以考虑用MoveDirectory，如果替换狐表的所有程序文件，不能替换的可能仍然存在。

 

MoveDirectory

将目录中的内容移到另一个目录，并删除原目录。

语法：

MoveDirectory(Directory, Destination)

Directory: 要移动的目录
Destination：目标位置

例如：

FileSys.MoveDirectory("C:\YourFolder", "D:\MyFolder")

C版

你看我升級按鈕的代碼

FileSys.CopyDirectory ("\\192.168.1.2\系统文件更新\其它\自动升级程序", "D:\零时文件\其它\自动升级程序", True ) '复制服务器发布的文件夹到客户端指定文件夹并覆盖原文件夹.
FileSys.MoveDirectory("D:\零时文件\其它\自动升级程序", "D:\零时文件\其它\自动升级程序二",FileSys.GetFileInfo(ProjectFile).Name,True)
Dim Proc As New Process '定义一个新的Process
Proc.File = "d:\零时文件\其它\自动升级程序二\自动升级程序\wyq.exe" '指定文件路径
Proc.Start()'打开文件
Syscmd.Project.Exit(False)

 

測試的時候，能夠檢測到文件是否需要更新，只是更新按鈕代碼出問題

提示錯誤

 

 

此主题相关图片如下：01.png

问题应该在这吧？

 

FileSys.MoveDirectory("D:\零时文件\其它\自动升级程序", "D:\零时文件\其它\自动升级程序二\" & FileSys.GetFileInfo(ProjectFile).Name,True)

C版，FileSys.GetFileInfo(ProjectFile).Name 什么意思，帮助中没找到。

 

返回正在使用的项目名称。

啊．．．

借助setup2go　軟件 基本上實現自動更新功能了

 

我是這樣做的，

把程序製作成為EXE安裝文件．　這樣更新的時候只要從服務器中複製下來，然後執行安裝就可以了．

 

在做成EXE安裝程序的時候，有兩個地方一定要先上

 　1.程序自動安裝，不用要人工操作

此主题相关图片如下：02.png

　2.安裝後，自動運行

此主题相关图片如下：01.png

 

登錄窗口
 

此主题相关图片如下：03.png

 

登錄窗口　AFTERLOAD　事件代碼
Dim cmd As New SQLCommand
Dim dt As datatable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users} where [设备清单]= 'Y' "
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0
Forms("登陆窗口").Controls("PassWord").Select() '返回窗口中 TB1控件
Dim b1 As String =Tables("客户端版本号")(0)("客户端版本号")
Dim b2 As String =Tables("服务器版本号")(0)("服务器版本号")
If b1 = b2 Then
Else
    Dim Proc As New Process
    MessageBox.Show("系统有更新,请更新文件!!", "提示")
    Forms("登陆窗口").Close()
    Forms("软件更新").OPEN()
End If

確認升級按鈕代碼

If FileSys.FileExists("\\192.168.1.2\系统文件更新\其它\自动升级程序.exe") Then
    Network.DownloadFile("\\192.168.1.2\系统文件更新\其它\自动升级程序.exe","d:\零时文件\自动升级程序二\自动升级程序.exe","wyq","wyq7758520",True, 100000, True) '复制服务器发布的文件夹到客户端指定文件夹并覆盖原文件夹
    Dim Proc As New Process '定义一个新的Process
    Proc.File = "d:\零时文件\自动升级程序二\自动升级程序.exe" '指定文件路径
    Proc.Start()'打开文件
    Syscmd.Project.Exit(False)
    e.Form.TimerEnabled = False
Else
    Messagebox.Show("更新文件不存在或已经被删除!请联系管理员!","提示")
End If

 

 

呵，做成EXE文件，基本上可以，，　這種辦法可能很笨，我實在想不出了．．

 

求更簡易的辦法．．．．．．．．．．