Come estrarre un file ZIP con VBScript

Quando Microsoft ha rilasciato l'attuale generazione del suo Windows Script Host , nel 2002 , ha reso disponibile agli sviluppatori e agli amministratori di sistema un ambiente di scripting potente e flessibile . In combinazione con un modello a oggetti accessibili in WSH che consente ai programmatori di automatizzare alcune delle funzionalità incorporate del sistema operativo Windows , VBScript , noto anche come Visual Basic Scripting Edition , in grado di svolgere compiti semplici con poche righe di codice . Poiché Windows da XP è incluso il supporto nativo per la compressione e l'estrazione dei 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", "Notepad " per aprire Blocco note di Windows .
2

Copia e incolla il seguente codice VBS nella finestra del blocco note :

funzione Unzip ( strFileName , strFolderName ) per

Dim objShell

Dim objFSO

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

objShell = CreateObject ( " Shell.Application " ) per

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

objFSO = CreateObject ( " Scripting . FileSystemObject " ) per

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

Se Non objfso.FolderExists Usa ( strFolderName ) Poi objfso.CreateFolder strFolderName

' CopyHere per estrarre i file

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

objFSO = Nothing Set

objShell = Nothing

End Function

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

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

Modifica l'ultima riga di sostituire il proprio nome del file zip e nome della cartella per gli esempi forniti 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 le virgolette ) nella casella "Nome file" . Selezionare " Tutti i file ( * . * )" Dal " Salva come tipo " drop -down . Fare clic sul pulsante "Salva " per salvare il nuovo file VBS .
5

Fare clic su " Start" , " Documenti " per aprire una finestra di Esplora risorse . Passare alla cartella in cui avete salvato il file VBS al punto 4 . Fare doppio clic su extractzip.vbs per eseguire lo script ed estrarre il file zip nella cartella specificata .