20240822備份

.vs/SYS-UPDATE/v17/DocumentLayout.json

@@ -64,7 +64,7 @@
               "RelativeDocumentMoniker": "SYS-UPDATE\\SYS-UPDATE.vb",
               "ToolTip": "D:\\\u5DE5\u5DE7\u660E\\YS\\SYS-UPDATE\\SYS-UPDATE\\SYS-UPDATE.vb",
               "RelativeToolTip": "SYS-UPDATE\\SYS-UPDATE.vb",
-              "ViewState": "AQIAAAAAAAAAAAAAAAAAAAEAAAAEAAAA",
+              "ViewState": "AQIAAAAAAAAAAAAAAAAwwAEAAAAEAAAA",
               "Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
               "WhenOpened": "2024-05-20T10:11:10.502Z",
               "EditorCaption": ""

SYS-UPDATE/SYS-UPDATE.vb

@@ -7,10 +7,9 @@
     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
-        If IO.File.Exists(Str + "\DotNetBarcode.dll") Then : Else
-            MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "DotNetBarcode.dll", Str + "\DotNetBarcode.dll")
-        End If
+        MyModule1.進度條() : Dim Str As String = Application.StartupPath : Dim FS As String
+        FS = "DotNetBarcode.dll" : If IO.File.Exists(Str & "\" & FS) Then : Else : MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
+        FS = "YSLOGO2.png" : If IO.File.Exists(Str & "\" & FS) Then : Else : MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & FS, Str & "\" & FS) : End If
         MyModule1.進度條() : If IO.File.Exists(Str + "\YS-ERP-SYS.exe") Then : IO.File.Delete(Str + "\YS-ERP-SYS.exe") : End If
         MyModule1.進度條() : My.Computer.Network.DownloadFile(Target & "YS-ERP-SYS.exe", Str + "\YS-ERP-SYS.exe")
         MyModule1.進度條() : Shell(Str + "\YS-ERP-SYS.exe", vbNormalFocus)