Quando Microsoft ha rilasciato l'attuale generazione del suo Windows Script Host, nel 2002, ha messo a disposizione di sviluppatori e amministratori di sistema un potente e flessibile ambiente di scripting. In combinazione con un modello di oggetto accessibile in WSH che consente ai programmatori di automatizzare alcune delle funzionalità built-in del sistema operativo Windows, VBScript, noto anche come Visual Basic Scripting Edition, in grado di eseguire compiti semplici, con poche righe di codice. Poiché Windows da XP ha incluso il supporto nativo per la compressione e l'estrazione dei file zip, uno script VBScript breve in grado di estrarre il contenuto di un file zip in una cartella.

istruzione

1 Fai clic su "Start", "Programmi", "Accessori", "Blocco note" per aprire Blocco note di Windows.

2 Copiare e incollare il seguente codice VBS nella finestra del Blocco note:

Funzione Unzip (strFileName, strFolderName)

dim objShell

dim objFSO

'Crea Shell.Application in modo che possiamo utilizzare il metodo CopyHere

Set objShell = CreateObject ( "Shell.Application")

'Crea FileSystemObject in modo che possiamo usare FolderExists e CreateFolder se necessario

Set objFSO = CreateObject ( "Scripting.FileSystemObject")

'Crea cartella per ricevere i file se doesn' t esiste già

Se non objfso.FolderExists (strFolderName) Poi objfso.CreateFolder strFolderName

'Usa CopyHere per estrarre i file

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

Set objFSO = Nothing

Set objShell = Nothing

End Function

Mettere il proprio nome del file zip e la cartella nome all'interno delle virgolette nella riga successiva

Unzip "C: \ Test \ Test.zip", "C: \ Test \ Test"

3 Modificare l'ultima riga di sostituire il proprio nome del file zip e la cartella nome per gli esempi forniti all'interno delle virgolette. È possibile specificare una cartella esistente oppure no. Lo script creerà la cartella, se non esiste già.

4 Fai clic su "File", "Salva con nome" per aprire la finestra di dialogo Salva con nome. Digitare "extractzip.vbs" (senza le virgolette) nella casella "Nome file". Selezionare "Tutti i file

(.)" Dal "Salva come" discesa. Fare clic sul pulsante "Salva" per salvare il nuovo file VBS.

5 Fai clic su "Start", "Documenti" per aprire una finestra di Windows Explorer. Passare alla cartella in cui è stato salvato il file VBS nel passaggio 4. extractzip.vbs fare doppio clic per eseguire lo script ed estrarre il file zip nella cartella specificata.