jj addons folder

This commit is contained in:
JenneJ
2016-08-17 14:04:22 +02:00
parent 9aeb386a25
commit f0ce937585
5 changed files with 74 additions and 6 deletions

View File

@@ -340,9 +340,19 @@
frm.Show()
End Sub
Public Sub OpenRightsmanager()
Dim path = ClassDatabase.Execute_Scalar("SELECT PATH_ADDONS FROm TBPMO_KONFIGURATION WHERE GUID = 1")
Dim startInfo As New ProcessStartInfo(path & "\RecordOrganizer_RightManager.exe")
Dim path As String = ClassDatabase.Execute_Scalar("SELECT PATH_ADDONS FROm TBPMO_KONFIGURATION WHERE GUID = 1")
Dim ProductionPath As String = System.IO.Path.Combine(path, "RightManager", "RecordOrganizer_RightManager.exe")
Dim DevelPath As String = System.IO.Path.Combine(path, "RecordOrganizer_RightManager\bin\Debug", "RecordOrganizer_RightManager.exe")
Dim startInfo As New ProcessStartInfo()
startInfo.Arguments = """" & MyConnectionString & """"
If System.IO.File.Exists(ProductionPath) Then
startInfo.FileName = ProductionPath
Else
startInfo.FileName = DevelPath
End If
Process.Start(startInfo)
End Sub
Public Sub OpenWindream_Files()