' UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP" PRACOWAĆ PRACOWAĆ
'UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP", "SUBDIR" PRACOWAĆ PRACOWAĆ
'UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP", "A.TXT" PRACOWAĆ PRACOWAĆ
'UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP", "SUBDIR \ A.TXT" PRACOWAĆ PRACOWAĆ
'UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP"," \ SUBDIR \ A.TXT " PRACOWAĆ PRACOWAĆ
'UnzipTEST "C:\TEMP\ZIPFILE.ZIP", "C:\TEMP", "C:\TEMP\SUBDIR\A.TXT" PRACOWAĆ PRACOWAĆ
Okręt podwodny UnzipTEST (strZIPfile Sznurek, strOutputFolder Jako Sznurek, Fakultatywny strSingleFileName Sznurek)
Ciemnawy FSO Przedmiot
Ciemnawy oApp Przedmiot
'Wydobywać the kartoteka w the nowostworzony falcówka
Ustawiać oApp = CreateObject ("Shell.Application")
Jeżeli strSingleFileName <> "" Wtedy
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName))
Inny
oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Rzecz
Kończyć Jeżeli
Kończyć Okręt podwodny
|