Quando Microsoft ha rilasciato l'attuale generazione di Windows Script Host, nel 2002, ha reso disponibile per gli sviluppatori e gli amministratori di sistema un ambiente di scripting potente e flessibile. Combinato con un modello a oggetti accessibile in WSH che consente ai programmatori di automatizzare alcune delle funzionalità incorporate del sistema operativo Windows, VBScript, noto anche come Visual Basic Scripting Edition, è possibile eseguire semplici operazioni con solo poche righe di codice. Perché Windows poiché XP ha incluso nativo supporto per la compressione e l'estrazione di file zip, un breve script VBScript può estrarre il contenuto di un file zip in una cartella.

Istruzioni

1

Fare clic su "Start", "Tutti i programmi", "Accessori", "Blocco note" per aprire il blocco note di Windows.

2

Copiare e incollare il codice VBS riportato di seguito nella finestra del blocco note:

Funzione Unzip(strFileName,strFolderName)

Dim objshell

Dim objfso

' Creare Shell. Application, quindi possiamo usare il metodo CopyHere

Imposta objshell = CreateObject

' Creare FileSystemObject così possiamo utilizzare FolderExists e CreateFolder se necessario

Set objfso = CreateObject("Scripting.FileSystemObject")

' Creare la cartella in cui ricevere i file se esso doesn' t esiste già

In caso contrario objfso. FolderExists(strFolderName) quindi objfso. CreateFolder strFolderName

' Utilizzare CopyHere per estrarre i file

objShell. NameSpace(strFolderName). CopyHere objshell. NameSpace(strFileName). Elementi

Set objfso = Nothing

Imposta objshell = Nothing

End Function

Mettere il vostro nome del file zip e il nome della cartella all'interno di virgolette nella riga successiva

Decomprimere il "C:\Test\Test.zip","C:\Test\Testing"

3

Modificare l'ultima riga per sostituire il tuo nome file zip e il nome della cartella per gli esempi citati all'interno delle virgolette. È possibile specificare una cartella esistente o non. Lo script creerà la cartella se non esiste già.

4

Fare clic su "File", "Salva con nome" per aprire la finestra di dialogo Salva con nome. Digitare "extractzip.vbs" (senza virgolette) nella casella "Nome File". Seleziona "Tutti i file (.)" dal menu "Salva come tipo" a discesa. Fare clic sul pulsante "Salva" per salvare il nuovo file VBS.

5

Fare clic su "Start", "Documenti" per aprire una finestra di Esplora risorse di Windows. Passare alla cartella dove salvato il file VBS nel passaggio 4. Fare doppio clic su extractzip.vbs per eseguire lo script ed estrarre il file zip nella cartella specificata.