Als Microsoft de huidige generatie van de Windows Script Host in 2002 , is beschikbaar voor ontwikkelaars en systeembeheerders een krachtige en flexibele scripting-omgeving gemaakt . Gecombineerd met een objectmodel toegankelijk in WSH waarmee programmeurs automatiseren van enkele van de ingebouwde functionaliteit van het Windows-besturingssysteem , VBScript , ook wel bekend als Visual Basic Scripting Edition , kunnen eenvoudige taken uit te voeren met slechts een paar regels code . Omdat Windows sinds XP heeft opgenomen native ondersteuning voor het comprimeren en uitpakken zip-bestanden , kan een korte VBScript- script de inhoud van een zip-bestand uit te pakken in een map . Instructies
1 Klik op "Start " , " Alle programma's " , "Toebehoren" , "Notepad " om Windows Kladblok .
Copy 2 te openen en plak de volgende code VBS in het venster Kladblok : Functie Unzip
( strFileName , strFolderName ) Dim objShell
Dim objFSO
' Shell.Application maken zodat we kunnen gebruik maken van de CopyHere methode Set objShell = CreateObject
( " Shell.Application " ) op Twitter ' Maak FileSystemObject zodat we kunnen gebruiken FolderExists en createfolder zonodig
Stel objFSO = CreateObject ( " Scripting . FileSystemObject " ) op Twitter ' Maak map om bestanden te ontvangen als het doesn ' t al bestaan
Als Niet objfso.FolderExists ( strFolderName ) dan objfso.CreateFolder strFolderName
' Gebruik CopyHere om bestanden uit te pakken objshell.NameSpace
( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . items
Stel objFSO = Nothing Set
objShell = Nothing
End Function
Zet uw eigen zip- bestandsnaam en mapnaam binnen de aanhalingstekens in de volgende regel
Unzip " C : \\ Test \\ test.zip " , " C : \\ Test \\ testen "
3 Bewerk de laatste regel om uw eigen zip- bestandsnaam en mapnaam de plaats van de gegeven voorbeelden binnen de aanhalingstekens . U kunt een bestaande map op te geven of niet . Het script zal de folder als deze nog niet bestaat .
4 Klik op " Bestand " , "Opslaan als" om de Save openen als dialoogvenster . Typ " extractzip.vbs " ( zonder de aanhalingstekens ) in het vak " Bestandsnaam " . Selecteer " Alle bestanden ( * . * ) " Van het " Opslaan als type " drop -down . Klik op de knop "Opslaan" om de nieuwe VBS- bestand op te slaan .
5 Klik op "Start " , " Documents " om een venster van Windows Verkenner te openen . Navigeer naar de map waarin u het VBS -bestand opgeslagen in stap 4 . Dubbelklik op extractzip.vbs aan het script en pak het zip -bestand in de opgegeven map .
|
