När Microsoft släppte den nuvarande generationen av sin Windows Script Host 2002 , gjorde den tillgänglig för utvecklare och systemadministratörer en kraftfull och flexibel scripting miljö . Kombinerat med en objektmodell tillgängligt i WSH som låter programmerare automatisera en del av den inbyggda funktionaliteten i Windows operativsystem , VBScript , även känd som Visual Basic Scripting Edition , kan utföra enkla uppgifter med bara några rader kod . Eftersom Windows sedan XP har inkluderat inbyggt stöd för att komprimera och extrahera zip-filer , kan en kort VBScript skript extrahera innehållet i en zip-fil i en mapp . Instruktioner
1
Klicka på "Start " , " Alla program " , "Tillbehör" , " Anteckningar " för att öppna Windows Anteckningar .
2
Kopiera och klistra in följande VBS kod i fönstret Anteckningar :
Funktion Unzip ( strFileName , strFolderName ) katalog
Dim objshell
Dim objfso
' Skapa Shell.application så att vi kan använda CopyHere metod
Set objshell = CreateObject ( " Shell.application " ) katalog
' Skapa FileSystemObject så att vi kan använda FolderExists och CreateFolder om nödvändigt
Set objfso = CreateObject ( " Scripting . FileSystemObject " ) katalog
" Skapa mapp för att ta emot filer , om det gör det inte redan finns
p Om Inte objfso.FolderExists ( strFolderName ) Sen objfso.CreateFolder strFolderName
"användning CopyHere att extrahera filer
objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . objekt
Set objfso = Nothing
Set objshell = Nothing
End Function
Sätt ditt eget namn zip -fil och mappnamn innanför citationstecken på nästa rad
Unzip " C : \\ Test \\ Test.zip " , " C : \\ Test \\ testa " Addera 3
Redigera den sista raden för att ersätta ditt eget namn zip -fil och mappnamn för de exempel som ges innanför citattecknen . Du kan ange en befintlig mapp eller ej . Manuset kommer att skapa mappen om den inte redan finns .
4
Klicka på " File " , " Spara som " för att öppna dialogrutan Spara som fönster . Skriv " extractzip.vbs " ( utan citattecken ) i " File Name " rutan . Välj " Alla filer ( * . * ) " Från " Spara som" drop -down . Klicka på " Spara" för att spara den nya VBS-fil .
5
Klicka på "Start " , " Dokument " för att öppna ett Windows Explorer- fönster . Navigera till den mapp där du sparade VBS -filen i steg 4 . Dubbelklicka på extractzip.vbs att köra skriptet och packa upp zip-filen i den angivna mappen .
