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

发布时间：2016-12-03 21:04:41 所属栏目：Asp教程来源：站长网

导读：复制代码代码如下: 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 targetp

复制代码代码如下:
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

（编辑：PHP编程网 - 黄冈站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!