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@", "")

WIDigConsoleApp/Runtime.vb

@@ -15,4 +15,5 @@ Module Runtime
     Public oWMObjecttype As String
     Public oIndexArr As String()
     Public WMIndices As List(Of String)
+    Public oExtension As String
 End Module

WIDigConsoleApp/WIDigConsoleApp.vbproj.user

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
-    <StartArguments>-Mode%40IMPO -Source%40E:\TEMP\TEST.pdf -Target%40"W:\ImportWIDIG\Testfile.pdf" -WMOT%40"DIGITAL DATA - Entwicklung" -index%40{"Integer 23"=4711%3b"String 38"=WeDigNoWIDig%3b"Boolean 04"=false}</StartArguments>
+    <StartArguments>-Mode%40IMPV -Source%40E:\TEMP\TEST.pdf -Target%40"W:\ImportWIDIG\Testfile.pdf" -WMOT%40"DIGITAL DATA - Entwicklung" -index%40{"Integer 23"=4711%3b"String 38"=WeDigNoWIDig%3b"Boolean 04"=false}</StartArguments>
   </PropertyGroup>
 </Project>

WIDigConsoleApp/obj/Debug/WIDigConsoleApp.vbproj.FileListAbsolute.txt

@@ -53,7 +53,6 @@ E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\bin\Debug\DigitalData.Modu
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\bin\Debug\DigitalData.Modules.Language.pdb
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\bin\Debug\DigitalData.Modules.Language.xml
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\bin\Debug\protobuf-net.xml
-E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\obj\Debug\WIDigConsoleApp.vbprojAssemblyReference.cache
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\obj\Debug\WIDigConsoleApp.Resources.resources
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\obj\Debug\WIDigConsoleApp.vbproj.GenerateResource.cache
 E:\SchreiberM\Visual Studio\GIT\WIDIG\WIDigConsoleApp\obj\Debug\WIDigConsoleApp.vbproj.CoreCompileInputs.cache

WIDigForm/Runtime.vb

@@ -15,4 +15,5 @@ Module Runtime
     Public oWMObjecttype As String
     Public oIndexArr As String()
     Public WMIndices As List(Of String)
+    Public OExtension As String
 End Module

WIDigForm/bin/Debug/DigitalData.Modules.Config.xml

@@ -63,9 +63,10 @@ DigitalData.Modules.Config
  <param name="LogConfig">LogConfig instance</param>
  <param name="UserConfigPath">The path to check for a user config file, eg. AppData (Usually Application.UserAppDataPath or Application.LocalUserAppDataPath)</param>
  <param name="ComputerConfigPath">The path to check for a computer config file, eg. ProgramData (Usually Application.CommonAppDataPath)</param>
+ <param name="ApplicationStartupPath">The path to check for a third config file. This is useful when running the Application in an environment where AppData/ProgramData directories are not available</param>
  <param name="ForceUserConfig">Override values from ComputerConfig with UserConfig</param>
 </member>
-<member name="M:DigitalData.Modules.Config.ConfigManager`1.#ctor(DigitalData.Modules.Logging.LogConfig,System.String,System.String)">
+<member name="M:DigitalData.Modules.Config.ConfigManager`1.#ctor(DigitalData.Modules.Logging.LogConfig,System.String)">
  <summary>
  Creates a new ConfigManager with a single (user)config path
  </summary>

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)