怎么用VBScript实现解压缩目录中的所有文件

这篇文章主要介绍了怎么用VBScript实现解压缩目录中的所有文件，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

代码如下:

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

感谢你能够认真阅读完这篇文章，希望小编分享的“怎么用VBScript实现解压缩目录中的所有文件”这篇文章对大家有帮助，同时也希望大家多多支持编程网，关注编程网精选频道，更多相关知识等着你来学习!