scripts - Cómo descomprimir un archivo en VBScript usando las opciones internas de Windows XP en

hola mundo en vbscript

Question

Quiero descomprimir un archivo .zip usando VBScript, solo que siempre es una computadora nueva sin aplicaciones externas. Ahora sé que Windows XP y 2003 tienen una opción interna de carpeta .zip, así que supongo que puedo usarla a través de VBScript para extraer el archivo.

¿Cómo lo hago?

Lo intenté:

Set objShell = CreateObject("Shell.Application")

Set SrcFldr = objShell.NameSpace(fileName)
Set DestFldr = objShell.NameSpace(appDir)
DestFldr.CopyHere(SrcFldr) 

Lo cual no funcionó. ¿Cual podría ser el problema?

Answer 1

Simplemente configure ZipFile = La ubicación del archivo zip, y ExtractTo = en la ubicación donde debe extraerse el archivo zip.

''The location of the zip file.
ZipFile="C:/Test.Zip"
''The folder the contents should be extracted to.
ExtractTo="C:/Test/"

''If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
   fso.CreateFolder(ExtractTo)
End If

''Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing