jj: check for exe before starting user manager

This commit is contained in:
Jonathan Jenne 2018-06-11 11:09:08 +02:00
parent 307d6ecabf
commit 51813675e2

View File

@ -940,13 +940,17 @@ Public Class frmProfileDesigner
Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
If userManagerPath Is Nothing Then
MsgBox("User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
MsgBox("Pfad zu User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
Else
Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe")
Dim psi As New ProcessStartInfo(exePath)
Process.Start(psi)
If File.Exists(exePath) Then
Dim psi As New ProcessStartInfo(exePath)
Process.Start(psi)
Else
MsgBox("Programm User Manager konnte nicht gefunden werden!", MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)