Cómo extraer un archivo zip con VBScript

Cuando Microsoft lanzó la actual generación de su Windows Script Host en 2002, se pondrá a disposición de los desarrolladores y administradores de sistemas un entorno de scripting de gran alcance y flexible. En combinación con un modelo de objetos accesibles en WSH que permite a los programadores automatizar algunas de las funciones integradas del sistema operativo Windows , VBScript , también conocido como Visual Basic Scripting Edition, puede realizar tareas simples con sólo unas pocas líneas de código. Debido a que Windows XP ya ha incluido el soporte nativo para la compresión y extracción de archivos zip , un guión corto VBScript puede extraer el contenido de un archivo zip en una carpeta. Instrucciones
1

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 del Bloc de notas:

Función Unzip ( strFileName , strFolderName )

Dim objShell

Dim objFSO

' Crear Shell.Application por lo que puede utilizar el CopyHere método

Set objShell = CreateObject ( " Shell.Application " )

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

Set objFSO = CreateObject ( " Scripting . FileSystemObject " )

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

Si No objfso.FolderExists uso ( strFolderName ) Entonces objfso.CreateFolder strFolderName

' CopyHere extraer archivos

objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . Equipo en

objFSO Set = Nothing

objShell Set = Nothing
< p> Función End of

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

Descomprimir "C: \\ Test \\ test.zip " , "C : \\ Test \\ Prueba "
3

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

4 Haga clic en " Archivo" , "Guardar como " para abrir la ventana Guardar como cuadro de diálogo. Escriba " extractzip.vbs " (sin las comillas) en el cuadro "Nombre de archivo " . Seleccione " Todos los archivos ( * . * )" De la opción "Guardar como tipo " drop -down . Haga clic en el botón "Guardar " para guardar el nuevo archivo de VBS .
5

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