Hvordan til at udtrække en zip-fil med VBScript

Når Microsoft frigivet den nuværende generation af Windows Script Host i 2002, stilles til rådighed for udviklere og systemadministratorer et stærkt og fleksibelt scripting miljø. Kombineret med et objekt model tilgængelig i WSH der lader programmører automatisere nogle af de indbyggede funktionalitet i Windows-operativsystemet, VBScript, også kendt som Visual Basic Scripting Edition, kan udføre simple opgaver med bare et par linjer kode. Da Windows siden XP har medtaget native support til at komprimere og udvinding af zip-filer, kan en kort VBScript script pakke indholdet af en zip-fil i en mappe.

Instruktioner

• Klik på "Start", "Alle programmer", "Accessories", "Notesblok" for at åbne Windows Notesblok.

• Kopier og indsæt følgende VBS kode i Notesblok-vinduet: Funktion Unzip (strFileName, strFolderName) Dim objshell Dim objfso 'Opret Shell.Application så vi kan bruge den CopyHere metode Set objshell = CreateObject ("Shell.Application")' Opret FileSystemObject så vi kan bruge FolderExists og CreateFolder om nødvendigt Set objfso = CreateObject ("Scripting.FileSystemObject") 'Opret mappe for at modtage filer, hvis det ikke allerede findes hvis ikke objfso.FolderExists (strFolderName) Derefter objfso.CreateFolder strFolderName' Brug CopyHere til pakke filer objshell.NameSpace (strFolderName) .CopyHere objshell.NameSpace (strFileName) .Items Set objfso = Nothing Set objshell = Nothing End Function Sæt dit eget zip-fil navn og mappe navn inde i citater i den næste linje Unzip "C: \ Test \ Test.zip "," C: \ Test \ Test "

• Rediger den sidste linje til at erstatte din egen zip-fil navn og mappe navn for de givne inden for anførselstegnene eksempler. Du kan angive en eksisterende mappe eller ej. Scriptet vil oprette mappen, hvis den ikke allerede findes.

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

• Klik på "Start", til "Dokumenter" åbner et Windows Explorer-vindue. 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.