Ako extrahovať súbor ZIP s VBScript

Keď Microsoft uvoľnil súčasnú generáciu svojho Windows Script Host v roku 2002 , je k dispozícii vývojárom a správcom systému výkonný a flexibilný skriptovacie prostredie . V kombinácii s objektovým modelom prístupné v WSH , ktorá umožňuje programátorom automatizovať niektoré vstavané funkcie operačného systému Windows , VBScript , tiež známy ako Visual Basic Scripting Edition , môžete vykonávať jednoduché úlohy , len s niekoľkými málo riadkov kódu . Vzhľadom k tomu , Windows XP , pretože je súčasťou natívnu podporu pre kompresiu a extrahovanie súborov ZIP , môže krátky VBScript Skript extrahovať obsah súboru zip do zložky . Pokyny dovolená 1

Kliknite na tlačidlo " Štart " , " Všetky programy " , " príslušenstvo " , " Poznámkový blok " otvorte Windows Poznámkový blok .
2

Skopírujte a vložte nasledujúci kód VBS do okna programu Poznámkový blok :

Funkcia rozbaľte ( strFileName , strFolderName )

Dim objshell

Dim objfso

Vytvoriť Shell.Application , takže môžeme použiť metóda CopyHere

Set objshell = CreateObject ( " Shell.Application " )

' Vytvoriť FileSystemObject , takže môžeme použiť FolderExists a CreateFolder prípade potreby

Nastaviť objfso = CreateObject ( " skriptovanie . FileSystemObject " )

" Vytvoriť zložku prijímať súbory, ak to nevyzerá ' už existuje t

Ak nie objfso.FolderExists ( strFolderName ) Potom objfso.CreateFolder strFolderName

" Používanie CopyHere extrahovať súbory

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

• Predchádzajúca strana: Ako opraviť poškodený ZIP súbor 
• Ďalšia strana: Ako Split Zip súborov v systéme Windows XP