Når Microsoft frigivet den nuværende generation af Windows Script Host i 2002, stilles til rådighed for udviklere og systemadministratorer en kraftfuld og fleksibel scripting miljø. Kombineret med et objekt -model tilgængelig i WSH der lader programmører automatisere nogle af de indbyggede funktioner i Windows- operativsystemet , VBScript , også kendt som Visual Basic Scripting Edition, kan udføre simple opgaver med blot et par linjer kode. Da Windows siden XP har medtaget understøttelse til komprimering og udvinding zip-filer , kan en kort VBScript script udpakke indholdet af en zip- fil i en mappe. Instruktioner
1

Klik på "Start ", " Alle programmer " , "Tilbehør ", " Notesblok " for at åbne Windows Notesblok.
2

Kopier og indsæt følgende VBS koden i Notesblok-vinduet : Hej

Function Unzip ( strFileName , strFolderName )

Dim objshell

Dim objfso

'Opret Shell.Application , så vi kan bruge CopyHere metode

Set objshell = CreateObject ( " Shell.Application " )

'Opret FileSystemObject så vi kan bruge FolderExists og CreateFolder evt

Set objfso = CreateObject ( " Scripting . FileSystemObject " )

' Opret mappe for at modtage filer, hvis det gør ikke ' t, der allerede eksisterer

hvis ikke objfso.FolderExists ( strFolderName ) Så objfso.CreateFolder strFolderName

'Brug CopyHere at udpakke filerne

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

Set objfso = Nothing

Set objshell = Nothing
< p> End Function

Sæt dit eget zip-fil navn og mappenavn inde i citater i næste linje

Unzip "C: \\ Test \\ Test.zip ", " C: \\ Test \\ Test "
3

Rediger den sidste linje til at erstatte dit eget zip-fil navn og mappenavn til de eksempler, inde i anførselstegn. Du kan angive en eksisterende mappe eller ej. Scriptet vil oprette mappen , hvis den ikke allerede findes.
4

Klik på "File ", " Gem som " for at åbne dialogboksen Gem som vindue . Skriv " extractzip.vbs " (uden anførselstegn) i "File Name" feltet . Vælg " Alle filer ( * . * )" Fra "Gem som type " drop- down . Klik på knappen "Gem" for at gemme den nye VBS -fil.
5.

Klik på "Start ", " Documents " for at åbne en Windows Stifinder -vinduet. Naviger til den mappe, hvor du gemte VBS fil i trin 4 . Dobbeltklik på extractzip.vbs at køre scriptet og udpakke zip-filen ind i den angivne mappe .