20230319備份

HX-PGS-UPDATE/HX-PGS-UPDATE.vb

@@ -135,6 +135,13 @@ Public Class HX_PGS_UPDATE
     Private Sub 主程式更新_Tick(sender As Object, e As EventArgs) Handles 主程式更新.Tick
         Dim 已開啟 As Boolean = False
         Dim Strs As String = Application.StartupPath
+
+        MyModule1.進度條() : If File.Exists(Str + "\LANGUAGE_FILE.csv") Then : File.Delete(Str + "\LANGUAGE_FILE.csv") : End If
+        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LANGUAGE_FILE.csv", Str + "\LANGUAGE_FILE.csv") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "LANGUAGE_FILE"
+        MyModule1.進度條() : If File.Exists(Str + "\TOKEN.pdf") Then : Else
+            My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "TOKEN.pdf", Str + "\TOKEN.pdf") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "TOKEN"
+        End If
+
         If File.Exists(My.Computer.FileSystem.SpecialDirectories.Desktop & "\HX-PGS-ERP-SYS.exe") Then
             Dim pro() As Process = System.Diagnostics.Process.GetProcesses()
             ' 判斷是否有符合的Process
@@ -173,11 +180,10 @@ Public Class HX_PGS_UPDATE
         MyModule1.進度條() : If File.Exists(Str + "\Interop.SHDocVw.dll") Then : File.Delete(Str + "\Interop.SHDocVw.dll") : End If
         MyModule1.進度條() : If File.Exists(Str + "\AxInterop.SHDocVw.dll") Then : File.Delete(Str + "\AxInterop.SHDocVw.dll") : End If
         MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : File.Delete(Str + "\\AxInterop.MSHTML.dll") : End If
+        MyModule1.進度條() : If File.Exists(Str + "\AxInterop.MSHTML.dll") Then : File.Delete(Str + "\\AxInterop.MSHTML.dll") : End If
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.MSHTML.dll", Str + "\AxInterop.MSHTML.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.MSHTML"
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "AxInterop.SHDocVw.dll", Str + "\AxInterop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "AxInterop.SHDocVw"
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "Interop.SHDocVw.dll", Str + "\Interop.SHDocVw.dll") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "Interop.SHDocVw"
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "HX01.docx", Str + "\HX01.docx") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "HX01"
-        My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "PGS01.docx", Str + "\PGS01.docx") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "PGS01"
         My.Computer.Network.DownloadFile(Target & AA(0) & "/" & "LIN HSING HAO.txt", Str + "\LIN HSING HAO.txt") : Me.Text = "UPDATE " & Strings.Mid(Target, 7, 30) & "LIN HSING HAO"
         OK2 = True : CheckBox2.Checked = True
     End Sub