Как распаковать файл в VBScript, используя внутренние параметры Windows XP в - PullRequest
Новая
       46

Как распаковать файл в VBScript, используя внутренние параметры Windows XP в

13 голосов
/ 26 мая 2009

Я хочу разархивировать ZIP-файл с помощью VBScript, только это всегда новый компьютер без внешних приложений на нем. Теперь я знаю, что в Windows XP и 2003 есть опция внутренней папки .zip, поэтому я могу использовать ее через VBScript для извлечения файла.

Как мне это сделать?

Я пытался: 

Set objShell = CreateObject("Shell.Application")

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

Что не сработало. В чем может быть проблема?

1 Ответ

31 голосов
/ 26 мая 2009

Просто установите ZipFile = расположение zip-файла, а ExtractTo = в положение, в которое следует извлечь 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
...