Toen Microsoft de huidige generatie van de Windows Script Host in 2002 vrijgegeven, maakte het beschikbaar aan ontwikkelaars en systeembeheerders een krachtige en flexibele scriptomgeving. Gecombineerd met een objectmodel toegankelijk in WSH waarmee programmeurs automatiseren van enkele van de ingebouwde functionaliteit van het besturingssysteem Windows, VBScript, ook bekend als Visual Basic Scripting Edition, kan het uitvoeren van eenvoudige taken met slechts een paar regels code. Omdat Windows sinds XP heeft opgenomen native ondersteuning voor het comprimeren en uitpakken van zipbestanden, kunt een korte VBScript-script de inhoud van een zip-bestand uitpakken naar een map.
Klik op "Start", "Alle programma's", "Accessoires", "Kladblok" Windows Kladblok openen.
Kopieer en plak de volgende VBS-code in het Kladblok-venster:
Functie Unzip(strFileName,strFolderName)
Dim objshell
Dim objfso
"Shell.Application maken zodat we de methode CopyHere kunt gebruiken
Set objshell = CreateObject("Shell.Application")
' FileSystemObject maken zodat we kunnen FolderExists en CreateFolder gebruiken indien nodig
Set objfso = CreateObject("Scripting.FileSystemObject")
' Maak map om bestanden te ontvangen als het doesn' t al bestaan
Zoniet objfso. FolderExists(strFolderName) dan objfso. CreateFolder strFolderName
' Gebruik CopyHere bestanden uitpakken
objShell. NameSpace(strFolderName). CopyHere objshell. NameSpace(strFileName). Items
Set objfso = niets
Set objshell = niets
End Function
Zet uw eigen zip-bestandsnaam en de naam van de map binnen de aanhalingstekens in de volgende regel
Unzip "C:\Test\Test.zip","C:\Test\Testing"
Bewerk de laatste regel te vervangen door uw eigen zip-bestandsnaam en de naam van de map voor de voorbeelden gegeven tussen de aanhalingstekens weer. U kunt een bestaande map opgeven of niet. Het script wordt de map gemaakt als het niet reeds bestaat.
Klik op "Bestand", "Opslaan als" te openen van het dialoogvenster Opslaan als. Typ "extractzip.vbs" (zonder de aanhalingstekens) in het vak "Bestandsnaam". Selecteer "Alle bestanden (.)" in het "Opslaan als Type" drop-down. Klik op de knop "Opslaan" als de nieuwe VBS-bestand wilt opslaan.
Klik op "Start", "Documenten" om een Windows Verkenner-venster te openen. Navigeer naar de map waar u de VBS-bestand hebt opgeslagen in stap 4. Dubbelklik op extractzip.vbs om het script uitvoeren en pak het zipbestand naar de opgegeven map.
