web-dev-qa-db-ja.com

内部Windowsを使用してVBScriptでファイルを解凍する方法XP options in

VBScriptを使用して.Zipファイルを解凍したいのですが、それは常に外部アプリケーションのない新しいコンピューターです。これで、Windows XPおよび2003には内部.Zipフォルダーオプションがあることがわかったので、ファイルを抽出するためにVBScript経由で使用できると思います。

どうすればいいのですか?

私は試した:

Set objShell = CreateObject("Shell.Application")

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

それはうまくいきませんでした。何が問題なのですか?

14
aviv

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
32
Tester101