Fix stupid errors

2019-02-26 16:31:16 +01:00
parent 118f334274
commit 35833e8647
2 changed files with 9 additions and 5 deletions
--- a/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
+++ b/app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
@@ -230,10 +230,10 @@ Public Class ClassWindream_allgemein
    Public Function NormalizePath(Path As String)
        Dim oNormalizedPath As String

-        If Path.StartsWith("\") Then
-            oNormalizedPath = Path.Substring(1)
-        ElseIf Path.StartsWith("\\windream") Then
+        If Path.StartsWith("\\windream") Then
            oNormalizedPath = Path.Replace("\\windream\objects\", "")
+        ElseIf Path.StartsWith("\") Then
+            oNormalizedPath = Path.Substring(1)
        Else
            Return Path
        End If