und nochmal

This commit is contained in:
ms
2026-01-12 13:19:05 +01:00
parent 2be0c784f7
commit d6cf889f5b
12 changed files with 33 additions and 33 deletions

View File

@@ -21,7 +21,7 @@ Public Class Update
Private Sub CmdUpdate_Click(sender As Object, e As EventArgs) Handles CmdUpdate.Click
If CmdUpdate.Text = "Fertig" Then
Process.Start("Dokumentation.exe")
Process.Start("Doku.exe")
Me.Close()
End If
If Test_Pfade(Updatequelle) = True Then
@@ -32,12 +32,12 @@ Public Class Update
Private Function UpdateStart()
For Each p In System.Diagnostics.Process.GetProcessesByName("Dokumentation.exe")
For Each p In System.Diagnostics.Process.GetProcessesByName("Doku.exe")
p.Kill()
Next
Threading.Thread.Sleep(1500)
Try
My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Dokumentation.exe")
My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Doku.exe")
Catch ex As Exception
MsgBox("Löschen fehlgeschlagen: " & ex.Message)
'TxtInfo.Text &= ex.Message