Når Microsoft lanserte den nåværende generasjon av sin Windows Script Host i 2002 , gjorde det tilgjengelig for utviklere og systemadministratorer en kraftig og fleksibel scripting miljø. Kombinert med et objekt modell tilgjengelig i WSH som lar programmerere automatisere noen av de innebygde funksjonaliteten i Windows -operativsystemet , VBScript , også kjent som Visual Basic Scripting Edition , kan utføre enkle oppgaver med bare noen få linjer med kode . Fordi Windows siden XP har inkludert innebygd støtte for komprimering og utpakking zip-filer, kan en kort VBScript script pakke ut innholdet i en zip-fil til en mappe . Instruksjoner
en

Klikk "Start" , " Alle programmer " , "Tilbehør ", " Notisblokk " for å åpne Windows Notisblokk.
2

Kopier og lim inn følgende VBS koden inn i Notisblokk-vinduet : en

Funksjon Unzip ( strFileName , strFolderName )

Dim objshell

Dim objfso

Opprett Shell.Application slik at vi kan bruke CopyHere metode

Set objshell = CreateObject ( " Shell.Application ")

Opprett FileSystemObject slik at vi kan bruke FolderExists og CreateFolder om nødvendig

Sett objfso = CreateObject ( " Scripting . FileSystemObject ")

Opprett mappe for å motta filer hvis det spiller ikke allerede eksisterer
p Hvis ikke objfso.FolderExists ( strFolderName ) Da objfso.CreateFolder strFolderName

' Bruk CopyHere å pakke ut filer

objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . Elementer

Sett objfso = Ingenting

Set objshell = Ingenting
< p> End Function

Sett din egen zip-filen og mappen navn inne sitatene i neste linje

Pakk "C : \\ Test \\ test.zIP ", " C : \\ Test \\ Testing "
3

Rediger den siste linjen for å erstatte din egen zip-filen og mappen navn for de eksemplene gitt innenfor anførselstegnene . Du kan angi en eksisterende mappe eller ikke. Skriptet vil opprette mappen hvis den ikke finnes allerede.
4

Klikk på " File" , "Lagre som " for å åpne dialogboksen Lagre som -vinduet . Type " extractzip.vbs " (uten anførselstegn ) i " File Name" -boksen. Velg " Alle filer ( * . * ) " Fra " Lagre som type " drop -down . Klikk på "Lagre " -knappen for å lagre den nye VBS filen .
5

Klikk "Start ", " dokumenter" for å åpne et Windows Utforsker-vindu . Naviger til mappen der du lagret VBS filen i trinn 4 . Dobbeltklikk extractzip.vbs å kjøre skriptet og pakke ut zip- filen til den angitte mappen .