20211101備份

SYS-UPDATE/SYS-UPDATE.vb

         da.Fill(ds2) : FDT_dgv.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
     Private Sub SYS_UPDATE_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        資料數 = 17
+        資料數 = 18
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
         MyModule1.進度條() : 登入人IP = "103.231.201.230,2433"
         MyModule1.進度條() : SQL_連線字串_ERP()
             If i < 10 Then : HH = "0" & i : ElseIf i >= 10 Then : HH = i : End If
             If FDT_dgv("指定", i).Value.ToString = "AA" & HH Then : AA(i) = FDT_dgv("資料夾名稱", i).Value.ToString : End If
         Next
-        MyModule1.進度條() : Target1 = Target & AA(0) & "/"
     End Sub
     Private Sub SYS_UPDATE_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         MyModule1.進度條() : Delay(30000)
         MyModule1.進度條() : Dim Str As String = Application.StartupPath
-        MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If
+        '------------------------------------------系統主體---------------------------------------------------------------------------------
+        MyModule1.進度條() : If File.Exists(Str + "\GA-ERP-SYS.exe") Then : File.Delete(Str + "\GA-ERP-SYS.exe") : End If : Me.Text = "SYS-UPDATE........GA-ERP-SYS.exe"
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "GA-ERP-SYS.exe", Str + "\GA-ERP-SYS.exe")
-        'MyModule1.進度條() : If File.Exists(Str + "\loginVerify.exe") Then : File.Delete(Str + "\loginVerify.exe") : End If
-        'MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "loginVerify.exe", Str + "\loginVerify.exe")
-        MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If
+
+        MyModule1.進度條() : If File.Exists(Str + "\loginVerify.exe") Then : File.Delete(Str + "\loginVerify.exe") : End If
+        MyModule1.進度條() : If File.Exists(Str + "\Verify.exe") Then : File.Delete(Str + "\Verify.exe") : End If : Me.Text = "SYS-UPDATE........Verify.exe"
+        MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Verify.exe", Str + "\Verify.exe")
+
+        MyModule1.進度條() : If File.Exists(Str + "\Auto.exe") Then : File.Delete(Str + "\Auto.exe") : End If : Me.Text = "SYS-UPDATE........Auto.exe"
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Auto.exe", Str + "\Auto.exe")
+
         MyModule1.進度條() : Shell(Str + "\GA-ERP-SYS.exe", vbNormalFocus)
         Me.Close()
     End Sub