用VBScript实现解压缩目录中的所有文件(Zip)

131 阅读 0 评论 87 点赞

我是靠谱客的博主怕黑黑米，最近开发中收集的这篇文章主要介绍用VBScript实现解压缩目录中的所有文件(Zip)，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

 
On Error Resume Next 
Dim objFSO,sourcepath,targetpath 

Function GetZipFile(path) 
Dim file,folder,sfolder,subfolder,files 
If Not objFSO.FolderExists(path) Then 
Msgbox "目标文件夹不存在！" 
Else 
objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath)) 
Set folder=objFSO.GetFolder(path) 
Set files=folder.files 
For Each file in files 
If StrComp(objFSO.GetExtensionName(file.name),"zip",vbTextCompare)=0 Then 
objShell.NameSpace(targetpath & Right(path,Len(path)-Len(sourcepath))).CopyHere objShell.NameSpace(path & "\" & file.name).Items(),256 
End If 
Next 
Set subfolder=folder.subfolders 
For Each sfolder in subfolder 
GetZipFile path & "\" & sfolder.name 
Next 
End If 
End Function 

Set objFSO=Server.CreateObject("Scripting.FileSystemObject") 
Set oApp=CreateObject("Shell.Application") 
sourcepath="C:\zipfiles" 
targetpath="D:\tmp\" & objFSO.GetFileName(sourcepath) 
GetZipFile sourcepath 
Set objFSO=Nothing 
Set oApp=Nothing 