VBS: Zip-Dateien klassifizieren und bestimmt Stelle entpacken

Dim fso, folder, file, ZipParts

lw = Left( WScript.ScriptFullName, 2 )
root = lw & "\gmd"  
bin = root & "\bin"  
cfg = bin & "\cfg"  
ext = bin & "\ext"  
lg = bin & "\log"  
data = root & "\data"  
input = root & "\input"  
inc = input & "\coa"  
inr = input & "\raw"  

ton = chr(007)
i = 0

Call Logging ("Start program")  

Set fso = CreateObject("Scripting.Filesystemobject")  
Set folder = fso.GetFolder(data)

	For Each file In folder.Files
		If fso.GetExtensionName(file) = "zip" Then  
			ZipParts = Split(fso.GetFileName(file)," ")  
			Pstrenght = Left (ZipParts(2),3)
			i = i + 1
		End If
	Next

	If i = 0 Then
		Call Logging ("Zip-File(s) not available")  
	Else
		Call Logging ("process " & ZipParts(1) & " of " & ZipParts(0))  
	End If
	
Set WshShell = CreateObject("WScript.Shell")  
	If i > 0 Then
		If ZipParts(UBound(ZipParts)) = "coa.zip" Then  
			If Not fso.FolderExists(inc & "\" & ZipParts(1) & " " & Pstrenght) Then  
				Set folder = fso.CreateFolder(inc & "\" & ZipParts(1) & " " & Pstrenght)  
			End If 
			WshShell.Run ext & "\7z.exe e " & data & "\" & ZipParts(0)& "*.zip -y -o" & " " & inc & "\" & ZipParts(1) & " " & Pstrenght,0,True  
		Else
			If Not fso.FolderExists(inr & "\" & ZipParts(1) & " " & Pstrenght) Then  
				Set folder = fso.CreateFolder(inr & "\" & ZipParts(1) & " " & Pstrenght)  
			End If 
			WshShell.Run ext & "\7z.exe e " & data & "\" & ZipParts(0)& "*.zip -y -o" & " " & inr & "\" & ZipParts(1) & " " & Pstrenght,0,True  
		End If
	End If

WshShell.Run "cscript //nologo " & bin & "\getData.vbs " & cfg & "\xyz650.ini",0,true  
WshShell.Run "cscript //nologo " & bin & "\getData.vbs " & cfg & "\xyz660.ini",0,true  
WshShell.Run "cscript //nologo " & bin & "\getData.vbs " & cfg & "\xyz670.ini",0,true  
WshShell.Run "cmd /c @echo " & ton, 0  
WshShell.Run bin & "\GMDevents.hta",0,True  

Set WshShell = Nothing
Set folder = Nothing
Set fso = Nothing
WScript.Quit

Sub Logging(ByRef sMsg)
Dim oFSO, EventMSG, EventTime
EventTime = Now

Set oFSO = CreateObject("Scripting.FileSystemObject")	  
Set EventMSG = oFSO.OpenTextFile("F:\GMD\bin\log\Events.log",8,true)  

EventMSG.WriteLine "[" & EventTime & "] [FlowControl] [Event: " & sMsg & "]"  
EventMSG.Close

Set EventMSG = Nothing
Set oFSO = Nothing
End Sub

F:\gmd\bin\ext\7z.exe e F:\gmd\data\1101*.zip -y -o F:\gmd\input\raw\xyz 670 @F:\gmd\bin\cfg\zipfilelist.txt

...
Call Logging (ext & "\7z.exe e " & data & "\" & ZipParts(0)& "*.zip -y -o" & " " & inr & "\" & ZipParts(1) & " " & Pstrenght & " @" & cfg & "\zipfilelist.txt")  

Set WshShell = CreateObject("WScript.Shell")  
	If i > 0 Then
		If ZipParts(UBound(ZipParts)) = "coa.zip" Then  
			If Not fso.FolderExists(inc & "\" & ZipParts(1) & " " & Pstrenght) Then  
				Set folder = fso.CreateFolder(inc & "\" & ZipParts(1) & " " & Pstrenght)  
			End If 
			WshShell.Run ext & "\7z.exe e " & data & "\" & ZipParts(0)& "*.zip -y -o" & " " _   
			& inc & "\" & ZipParts(1) & " " & Pstrenght,0,True  
		Else
			If Not fso.FolderExists(inr & "\" & ZipParts(1) & " " & Pstrenght) Then  
				Set folder = fso.CreateFolder(inr & "\" & ZipParts(1) & " " & Pstrenght)  
			End If 
			WshShell.Run ext & "\7z.exe e " & data & "\" & ZipParts(0)& "*.zip -y -o" & " " _  
			& inr & "\" & ZipParts(1) & " " & Pstrenght & " @" & cfg & "\zipfilelist.txt",0,True  
		End If
	End If
...

for %%f in (%data%%ym%*.zip) do (
 set "fname=%%~nxf"  
 :: set "prdct=!fname:~5,10!"  
  if /i "!fname:~-7!" == "coa.zip" (  
    "%ext%7z" e "%%f" -y -o"%inc%*"   
  ) else (
    "%ext%7z" e "%%f" -y -o"%inr%*" @%cfg%zipfilelist.txt  
  )
) >>NUL

set /A cntdata=0

for %%f in (%data%*.zip) do set /A cntdata+=1
if "%cntdata%"=="0" call :ErrorMSG_Zip  

set "FirstMonth="  
for /f "delims=" %%i in ('dir /b/a-d "%data%"') do if not defined FirstMonth set "FirstMonth=%%~ni"  
set "FirstMonth=%FirstMonth:~,4%"  
set "LastM="  
for /f "delims=" %%i in ('dir /b/a-d "%data%"^|findstr /ibv "%FirstMonth%"') do set "LastM=%%~ni"  
set "LastMonth=%LastM:~,4%"  
if defined LastM (
  echo more than one dataset to process
	echo first dataset: "%FirstMonth%"  
  echo last dataset= "%LastMonth%"  
) else (
	echo only one dataset to process
	echo first dataset: "%FirstMonth%"  
)

set In=%wks%\GetInput.vbs
>%In% echo Set args=WScript.Arguments:WScript.Echo InputBox(args(0), args(1))
:Loop
set  "ym=" & for /f "delims=" %%i in ('cscript //nologo %In% "Input yymm" "Input Year and Month" ""') do set "ym=%%i"  
If not defined ym goto :Loop