用VBScript实现解压缩目录中的所有文件(Zip)
发布时间：2016-12-03 23:16:11 所属栏目：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 （编辑：淮北站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
