我想使用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)
哪个没有工作.
可能是什么问题呢?
只需设置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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。