主题：[分享]项目内部更新-解决方案

我顶你

不错，顶一个！

 

好象有些细节还需改进，比如，如果没有可更新的文件，MoveDirectory肯定会有问题。

好象要全部外部数据源（而且要屏蔽压缩项目）才行，或虽有内部表，但不能在内部表中增删除数据，否则对项目文件校码肯定不会一致，如果不一致就意味着每次都要更新项目文件。

 

没有经过测试，只是从楼主的代码中似乎看出有这些问题，说错勿怪。

嘿嘿，谢谢CZY的建议，受益良多。

貌似movedirectory没报错。

 

我现在的应用是：添加2条内部函数。

为文件上传、文件下载

项目：Initialize事件设置文件更新代码：

 

Connections.Add("Conn_Source", GetConfigValue("Conn", "Error")) 'conn保存外部数据源连接字符串；
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select max(版本号) from updates"
Dim Ser_bbh As Date = cmd.ExecuteScalar
SaveConfigValue("S_bbh", Ser_bbh)
Dim Chi_bbh As Date = GetConfigValue("C_bbh","#0001-01-01 0:00:00#")
If Ser_bbh > Chi_bbh Then
    Functions.Execute("文件下载")
End If 

文件正常下载后，更新客户端版本号；C_bbh

我的项目，所有内容都在服务器sql中，没有对内部表进行应用，

内部表只存在一个表，保存着自定义登陆窗口、网络设置窗口。

我刚才测试了一下，如果不存在来源指定文件夹会报错，操作系统Win 7

 

 

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

本地目录与服务器目录的遍历代码还有缺陷。

 

项目发布后，在本地运行项目后，在上传项目，dll动态链接库没有关闭。上传文件出错。

上传代码：第二版

If Connections.Contains("Conn_Source") Then
    Connections.Delete("Conn_Source")         '删除数据源
End If
Connections.Add("Conn_Source", GetConfigValue("Conn", "Error"))     '新增外部数据源
Dim bbh As Date = Date.Now
'------------------------ftp服务器
Dim ftp1 As new ftpclient
ftp1.host=""
ftp1.Account = ""
ftp1.password = ""
'---------------------远程服务器
Dim dt As datatable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select 文件路径,文件校验码 from updates"
dt = cmd.ExecuteReader()
Dim ftp_jym As String = dt.GetComboListString("文件校验码")

'==========================
Dim i As Integer = 1
Dim dirs,dirys As New List(Of String)  '目录树-数组
Dim gml As String = "\Publish"
dirs.Add(gml) '根目录
Do
    For Each dirx As String In dirs    '遍历获取目录-数组
        For Each dir2 As String In FileSys.GetDirectories(dirx)  '当前目录下所有目录
            If dirs.Contains(dir2) = False Then
                dirys.Add(dir2)   '遍历当前目录,将目录列表添加至临时数组
            End If
        Next
    Next
    For Each b As String In dirys
        If dirs.Contains(b) = False Then
            dirs.add(b)    '将目录临时数组,添加至dirs数组中.
        End If
    Next
    dirys.Clear
    i += i
Loop While i <= 1000

For Each dir As String In dirs
    Dim dirname As String = dir
    dirname = dirname.Replace(gml,"")
    dirname = dirname.Replace("\","/")
    If ftp1.DirectoryExists("../kangc" & dirname) = False Then '如果不存在目录,创建目录
        ftp1.MakeDir("kangc" & dirname) '则创建目录
    End If
    For Each File As String In FileSys.GetFiles(dir)
        Dim xy As String = File.Replace(gml,"")
        xy = xy.Replace("\","/")
        Dim jym As String = CRCCheckFile(File) '校验码
        If ftp_jym.Contains(jym) = False Then
            ftp1.Upload(file,"../kangc" & xy,True) '先上传文件
            cmd.CommandText = "INSERT INTO updates(版本号,文件路径,文件校验码) VALUES('" & bbh & "','" & xy & "','" & jym & "')"
            cmd.ExecuteNonQuery
        End If
    Next
Next
Output.Show((Date.now - bbh).Totalseconds)

 

支持！

同时感谢楼主！