jj: check for exe before starting user manager
This commit is contained in:
parent
307d6ecabf
commit
51813675e2
@ -940,13 +940,17 @@ Public Class frmProfileDesigner
|
|||||||
Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
|
Dim userManagerPath As String = clsModules.GetModulePath("User Manager")
|
||||||
|
|
||||||
If userManagerPath Is Nothing Then
|
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
|
Else
|
||||||
|
|
||||||
Dim exePath As String = Path.Combine(userManagerPath, "DDUserManager.exe")
|
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
|
End If
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
|
MsgBox("Error while startign User Manager:" & vbCrLf & ex.Message, MsgBoxStyle.Critical)
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user