VBS- rozbalenie velkeho mnozstva gz suborov

Ahoj, toto je moj zaciatok vo VBS takze si neviem poradit. Chcel by som vyuzit vbs script na rozbalenie vacsieho mnostva gz suborov ktore su sice v jednom foldri ale v roznych subfoldroch. Napadlo ma pouzit rekurzivny script ktory najde vsetky gz subory v danom foldri a jeho subfoldroch. Nasledne som chcel kazdy subor rozbalit pomocou 7-zipu. Bohuzial to neviem sfunkcnit a uz sa v tom zamotavam. Taktiez mam problem s tymto : objShell.run "cmd CD C:7-Zip & c:7-Zip>7z e c:NGLogs*.gz" Totiz neviem ako priradit e prave aktualny folder. Kazda rada dobra. Dim objFSO, objFolder, colFiles, objSubFolder, objSubFile, objShell strFolder = "c:.." strTar = "c:.." Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolder) Set colFiles = objFolder.Files Set objShell = WScript.CreateObject ("WScript.shell") For Each File in colFiles set objFile = objFSO.GetFile(strFolder & "" & File.Name) If lcase(Right(objFile.Name,2)) = "gz" Then objShell.run "cmd CD C:7-Zip & c:7-Zip>7z e c:NGLogs*.gz" Set objShell = Nothing End If ScanSubFolders(objFolder) Sub ScanSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Set objShell = WScript.CreateObject ("WScript.shell") Set colFiles = objSubFolder.Files For Each objFile in Colfiles If lcase(Right(objFile.Name,2)) = "gz" Then objShell.run "cmd CD C:7-Zip & c:7-Zip>7z e c:NGLogs*.gz" Set objShell = Nothing End If Next ScanSubFolders(objSubFolder) Next End Sub---------- Příspěvek doplněn 22.05.2012 v 09:16 ----------Podarilo sa mi to spojazdnit. Mam vsak este dotaz. Ako docielim aby sa mi CMD okna po vykonani prikazu same zatvrotili ? funkcni kod : strDir = "C:NGLogs"Set objFSO = CreateObject("Scripting.FileSystemObject")Set objDir = objFSO.GetFolder(strDir)Set objShell = WScript.CreateObject ("WScript.shell")RecursiveFunc(objDir)Sub RecursiveFunc(Dir_Passed) For Each ItemFile In Dir_Passed.Files If LCase(Right(CStr(ItemFile.Name), 2)) = "gz" Then objShell.CurrentDirectory = Dir_Passed.Path objShell.Run """C:7z.exe"" e " & ItemFile.Name End If Next For Each Item_Fldr In Dir_Passed.SubFolders RecursiveFunc (Item_Fldr) NextEnd Sub