edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nachrichten verbessert, Bugs beseitigt, ...

Browse Source
This commit is contained in:
ms
2019-11-07 09:47:16 +01:00
parent 2197c92cba
commit 0b0d0f9538
10 changed files with 137 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Dokumentation_Updater/Update.vb
View File

@@ -39,7 +39,7 @@ Public Class Update
My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Dokumentation.exe")
Catch ex As Exception
MsgBox("Löschen fehlgeschlagen: " & ex.Message)
TxtInfo.Text &= ex.Message
'TxtInfo.Text &= ex.Message
End Try
Dim files As String() = IO.Directory.GetFiles(Updatequelle)
@@ -48,7 +48,7 @@ Public Class Update
TxtInfo.Text &= "Kopiere " & System.IO.Path.GetFileName(file) & vbCrLf
My.Computer.FileSystem.CopyFile(file, sAppPath & "\" & System.IO.Path.GetFileName(file), True)
Catch ex As Exception
TxtInfo.Text &= "... Datei übersprungen:" & vbCrLf & ex.Message
' TxtInfo.Text &= "... Datei übersprungen:" & vbCrLf & ex.Message
End Try
Next
CmdUpdate.Enabled = True