Cómo extraer un archivo ZIP con VBScript

Cuando Microsoft lanzó la actual generación de su Windows Script Host en 2002, se puso a disposición de los desarrolladores y administradores de sistemas un entorno de programación potente y flexible. En combinación con un modelo de objetos accesibles en WSH que permite a los programadores a automatizar algunas de las funcionalidades incorporadas en el sistema operativo Windows, VBScript, también conocido como Visual Basic Scripting Edition, pueden realizar tareas sencillas con sólo unas pocas líneas de código. Debido a que Windows XP ya ha incluido el soporte nativo para comprimir y extraer archivos zip, una secuencia de comandos VBScript corto puede extraer el contenido de un archivo zip en una carpeta.

Instrucciones

1 Haga clic en "Inicio", "Todos los programas", "Accesorios", "Bloc de notas" para abrir el Bloc de notas de Windows.

2 Copia y pega el siguiente código VBS en la ventana Bloc de notas:

Descomprimir función (strFileName, strFolderName)

Dim objShell

Dim objFSO

'Crear Shell.Application así que podemos usar el método CopyHere

Establecer objShell = CreateObject ( "Shell.Application")

'Crear FileSystemObject para que podamos usar FolderExists y CreateFolder si es necesario

Establecer objFSO = CreateObject ( "Scripting.FileSystemObject")

"Crear carpeta para recibir archivos si doesn 't ya existen

Si no es así objfso.FolderExists (strFolderName) Entonces objfso.CreateFolder strFolderName

'Uso CopyHere para extraer los archivos

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

Establecer objFSO = Nada

Establecer objShell = Nada

End Function

Ponga su propio nombre de archivo zip y la carpeta de nombre dentro de las comillas en la línea siguiente

Descomprimir "C: \ Test \ Test.zip", "C: \ Test \ Testing"

3 Editar la última línea para sustituir su propio nombre de archivo zip y la carpeta de nombre para los ejemplos que se dan dentro de las comillas. Puede especificar una carpeta existente o no. La secuencia de comandos creará la carpeta si no existe ya.

4 Haga clic en "Archivo", "Guardar como" para abrir la ventana de diálogo Guardar como. Tipo de "extractzip.vbs" (sin las comillas) en el cuadro "Nombre de archivo". Seleccione "Todos los archivos

(.)" De la opción "Guardar como tipo" desplegable. Haga clic en el botón "Guardar" para guardar el nuevo archivo VBS.

5 Haga clic en "Inicio", "Documentos" para abrir una ventana de Windows Explorer. Vaya a la carpeta donde guardó el archivo VBS en el paso 4. Haga doble clic en extractzip.vbs para ejecutar el script y extraer el archivo zip en la carpeta especificada.