客户端:新文件下载更新
Dim x As Date = "2010-10-17 18:49:32.000" '当前版本号
'==================
Dim dt As datatable
Dim cmd As New SQLCommand
cmd.Cselect b.文件路径,b.版本号,c.文件校验码 from " & _
"(Select DISTINCT cast(t.文件路径 as varchar(80)) 文件路径 ,max(版本号) 版本号 from updates t where 版本号 >='" & x & "' group by cast(t.文件路径 as varchar(80))) b " & _
"INNER JOIN (select * from updates) c " & _
"on c.版本号 = b.版本号 and cast(c.文件路径 as varchar(80)) = b.文件路径 "
dt = cmd.ExecuteReader()
此主题相关图片如下:qq截图未命名.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2010-10/2010101722253624048.png)
'===================== FTP远程服务器信息
Dim ftp1 As new ftpclient
ftp1.host=""
ftp1.Account = ""
ftp1.password = ""
'--------------------------开始下载
output.show(dt.DataRows.Count) ' 获取当前更新文件量
For Each wj As DataRow In dt.DataRows
Dim i As Integer
Dim bd As String = CRCCheckFile(ProjectPath & "\远程ftp更新目录\" & wj("文件路径")) '判断是否已经下载,
If bd = wj("文件校验码")
Continue For '新文件已下载,跳过本次下载,进入下一次循环
End If
Do
ftp1.Download("远程ftp更新目录\" & wj("文件路径"),ProjectPath & "\远程ftp更新目录\" & wj("文件路径"),True) '下载文件
Dim Down As String = CRCCheckFile(ProjectPath & "\远程ftp更新目录\" & wj("文件路径"))
If Down = wj("文件校验码")
output.show("下载成功")
Exit Do
End If
i+=1
Loop While i<=4 '重复下载5次
Next
filesys.MoveDirectory(ProjectPath & "\update\", ProjectPath, True)
Syscmd.Project.Open(ProjectFile)
[此贴子已经被作者于2010-10-17 22:26:01编辑过]