四、增加一个开始升级按钮代码如下:
'''
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select * From {服务器设置} where [ID] > 0"
Dim dt As DataTable = cmd.ExecuteReader()
dim s1 as string = dt.datarows(0)("ipadress")
dim s2 as string = dt.datarows(0)("ftpuser")
dim s3 as string = dt.datarows(0)("ftppwd")
s1 = DecryptText(s1,"oxy","8b2a03x5y6")
s2 = DecryptText(s2,"oxyang","b1a2o3x4y5a6n7g8")
s3 = DecryptText(s3,"oxing","b82331382x")
If FileSys.DirectoryExists("E:\data") Then '如果临时目录存在
FileSys.DeleteDirectory("E:\data",2,3) '则删除之
FileSys.CreateDirectory("E:\data") ‘再新建临时目录
End If
dim file1,file2,file3,file4 as string
Dim path as string = "E:\data\" '临时存入的目录
Dim lst As WinForm.ListBox
Lst = e.form.Controls("ListBox1")
if lst.Items.Count > 0 then
For k as integer = 0 to lst.Items.Count -1
lst.selectedIndex = k
file1 = lst.Items(k)
file2 = "ftp://" & s2 & ":" & s3 & "@" & s1 & file1
file3 = path & file1
file4 = file3.Replace("/升级","")
file4 = file4.trim()
' Network.downloadfile(file2,file4,"","",true,100000,true)
Next
end if
Dim f as string = ApplicationPath ’项目目录名称
f = f.TrimEnd("\","")
if lst.Items.Count = ‘临时目录’then
FileSys.CopyDirectory ("E:\data","& f &", True)
messagebox.show("升级成功!需要重新启动项目!!")
Syscmd.Project.Exit(False)
else
return
end if