20230624備份

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

@@ -223,6 +223,20 @@ Public Class HX_PGS_UPDATE
             Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
         FS1 = "vulkan-1.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
             Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
+        FS1 = "PdfSharp.Charting.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
+        FS1 = "PdfSharp.Charting.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
+        FS1 = "PdfSharp.dll" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
+        FS1 = "PdfSharp.xml" : MyModule1.進度條() : If File.Exists(Str & "\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/" & FS1, Str & "\" & FS1) : End If
+
+        MyModule1.進度條() : If Dir(Str + "\de", vbDirectory) <> "" Then : Else : MkDir(Str + "\de") : End If
+        FS1 = "PdfSharp.Charting.resources.dll" : MyModule1.進度條() : If File.Exists(Str & "\de\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/de/" & FS1, Str & "\de\" & FS1) : End If
+        FS1 = "PdfSharp.resources.dll" : MyModule1.進度條() : If File.Exists(Str & "\de\" & FS1) Then : Else
+            Me.Text = "SYS-UPDATE........" & FS1 : My.Computer.Network.DownloadFile(Target & AA(0) & "/de/" & FS1, Str & "\de\" & FS1) : End If
 
         MyModule1.進度條() : If Dir(Str + "\DawnCache", vbDirectory) <> "" Then : Else : MkDir(Str + "\DawnCache") : End If
         FS1 = "data_0" : MyModule1.進度條() : If File.Exists(Str & "\DawnCache\" & FS1) Then : Else