MS importund Replace Folder

WIDigConsoleApp/Module1.vb

@@ -131,6 +131,8 @@ Module Module1
                 ElseIf oArg.StartsWith("-Target@") Then
                     oTargetPath = oArg.Replace("-Target@", "")
                     Dim oWMFolder = System.IO.Path.GetDirectoryName(oTargetPath)
+                    Dim oWindowsPath = oTargetPath
+                    oExtension = Path.GetExtension(oWindowsPath)
                     Dim oNormalizePath = WINDREAM.GetNormalizedPath(oTargetPath)
                     If WINDREAM.TestFileExists(oTargetPath) = False Then
                         LOGGER.Info($"WMFile [{oTargetPath}] not existing!")
@@ -143,7 +145,7 @@ Module Module1
                         End If
                     End If
                     'Checks and creates the path if necessary
-                    WINDREAM.NewFolder(oTargetPath)
+                    WINDREAM.NewFolder(oTargetPath, oExtension)
 
                 ElseIf oArg.StartsWith("-WMOT@") Then
                     oWMObjecttype = oArg.Replace("-WMOT@", "")