AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Windream: Log if object does not exist

Browse Source
This commit is contained in:
Jonathan Jenne 2020-04-27 16:22:34 +02:00
parent 29600e0a5e
commit ebc482b7b2
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Modules.Windream/Windream.vb
View File

@ -766,15 +766,15 @@ Public Class Windream
'If UsesDriveLetter Then 'If UsesDriveLetter Then
' Remove Driveletter eg. W:\ ' Remove Driveletter eg. W:\
If oNormalizedPath.StartsWith($"{ClientDriveLetter}:\") Then If oNormalizedPath.StartsWith($"{ClientDriveLetter}:\") Then
_logger.Debug($"Replacing ClientDriveLetter: [{ClientDriveLetter}]") _logger.Debug($"Replacing ClientDriveLetter: [{ClientDriveLetter}]")
oNormalizedPath = oNormalizedPath.Substring(ClientDriveLetter.Length + 2) oNormalizedPath = oNormalizedPath.Substring(ClientDriveLetter.Length + 2)
End If End If
'Else 'Else
If oNormalizedPath.ToLower.StartsWith(ClientBasePath.ToLower) Then If oNormalizedPath.ToLower.StartsWith(ClientBasePath.ToLower) Then
_logger.Debug($"Replacing ClientBasePath: [{ClientBasePath}]") _logger.Debug($"Replacing ClientBasePath: [{ClientBasePath}]")
' Remove Windream Base Path eg. \\windream\objects\ ' Remove Windream Base Path eg. \\windream\objects\
oNormalizedPath = oNormalizedPath.Substring(ClientBasePath.Length - 1) oNormalizedPath = oNormalizedPath.Substring(ClientBasePath.Length - 1)
End If End If
'End If 'End If
oNormalizedPath = oNormalizedPath.Replace("\\", "\") oNormalizedPath = oNormalizedPath.Replace("\\", "\")
@ -1463,6 +1463,7 @@ Public Class Windream
End If End If
If TestObjectExists(ObjectName, ObjectType) = False Then If TestObjectExists(ObjectName, ObjectType) = False Then
_logger.Warn("GetObjectByName: Object {0} does not exist!", ObjectName)
Return Nothing Return Nothing
End If End If
@ -1481,6 +1482,7 @@ Public Class Windream
End If End If
If TestObjectExists(ObjectName, ObjectType) = False Then If TestObjectExists(ObjectName, ObjectType) = False Then
_logger.Warn("GetObjectByPath: Object {0} does not exist!", ObjectName)
Return Nothing Return Nothing
End If End If