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

Question

Quiero descomprimir un archivo .zip usando VBScript, solo que siempre es una computadora nueva que no tiene 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?

me trataron:

Set objShell = CreateObject("Shell.Application") 

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

los cuales no funcionaba. ¿Cuál 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