Come decomprimere un file in VBScript utilizzando le opzioni interne di Windows XP in

Question

Voglio decomprimere un file .zip usando VBScript, solo che è sempre un nuovo computer senza applicazioni esterne. Ora so che Windows XP e 2003 hanno un'opzione di cartella zip interna, quindi suppongo di poterlo usare tramite VBScript per estrarre il file.

Come faccio?

ho provato:

Set objShell = CreateObject("Shell.Application") 

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

che non ha funzionato. Quale potrebbe essere il problema?

Answer 1

Basta impostare ZipFile = Il percorso del file zip e ExtractTo = nella posizione in cui deve essere estratto il file 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