Code:
Function fnLogFilePath(ByRef objSEApplication As SolidEdgeFramework.Application) As String 'Der folgende Code geht leider nicht:
'Dim constValue As SolidEdgeFramework.ApplicationGlobalConstants
'Dim objLogpath As Object = Nothing
'constValue = SolidEdgeFramework.ApplicationGlobalConstants.seApplicationGlobalLogFilesLocation
'objSEApplication.GetGlobalParameter(constValue, objLogpath)
'fnLogFilePath = objLogpath.ToString & "\Logfile_Export_" & Replace(Microsoft.VisualBasic.Now.ToString, ":", "") & ".txt"
'Deshalb die andere Lösung
Dim strVersion As String
strVersion = "Version " & Split(objSEApplication.Version, ".")(0)
fnLogFilePath = CStr(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Unigraphics Solutions\Solid Edge\" & strVersion & "\Global", "LogFileDir", "")) & "\Logfile_Export_" & Replace(Microsoft.VisualBasic.Now.ToString, ":", "_") & ".txt"
Return fnLogFilePath
End Function