用VBS解压缩ZIP文件

概述用VBS解压缩ZIP文件

下面是内存溢出 jb51.cc 通过网络收集整理的代码片段。

内存溢出小编现在分享给大家，也给大家做个参考。

Sub UnZip(ByVal myZipfile,ByVal myTargetDir)    If NOT fso.FolderExists(myTargetDir) Then        fso.CreateFolder(myTargetDir)    End If    Set obJsource = obJshell.nameSpace(myZipfile)    Set objFolderItem = obJsource.Items()    Set objTarget = obJshell.nameSpace(myTargetDir)    objTarget.copyHere objFolderItem,256End SubDim fsoSet fso = CreateObject("Scripting.fileSystemObject")Dim obJshell,objFolderSet obJshell=CreateObject("Shell.Application")Set objFolder=obJshell.browerFolder(0,"choose folder",0)If not objFolder is nothing thenUnzip "C:.zip",objFolder.self.pathEnd IfSet objFolder=nothingSet obJshell=nothingSet fso=nothing

以上是内存溢出(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

总结

以上是内存溢出为你收集整理的用VBS解压缩ZIP文件全部内容，希望文章能够帮你解决用VBS解压缩ZIP文件所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。