MS importund Replace Folder

WIDigForm/frmMain.vb

@@ -122,6 +122,8 @@ Public Class frmMain
                 ElseIf oArg.StartsWith("-Target@") Then
                     oTargetPath = oArg.Replace("-Target@", "")
                     Dim oWMFolder = System.IO.Path.GetDirectoryName(oTargetPath)
+                    Dim oWindowsPath = oTargetPath
+                    OExtension = IO.Path.GetExtension(oWindowsPath)
                     Dim oNormalizePath = WINDREAM.GetNormalizedPath(oTargetPath)
                     If WINDREAM.TestFileExists(oTargetPath) = False Then
                         LOGGER.Info($"WMFile [{oTargetPath}] not existing!")
@@ -266,7 +268,7 @@ Public Class frmMain
     Public Function StreamIndexFile()
         Try
             'Checks and creates the path if necessary
-            WINDREAM.NewFolder(oTargetPath)
+            WINDREAM.NewFolder(oTargetPath, oExtension)
             Dim oResult As Boolean = False
             If oMode = "IMPV" Then
                 oResult = WINDREAM.NewFileStream(oSourceFile, oTargetPath)