用VBScript实现解压缩目录中的所有文件(Zip)
发布时间:2016-12-04 00:14:08 所属栏目: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 (编辑:江门站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- 艾芬达电热毛巾架跃居洗手间必备神器 烘干、杀菌一个都不能
- iOS 11 beta 5怎么样 iOS 11 beta 5好不好
- Python简单遍历字典及删除元素的方法
- %for i = 1 to 100% % Randomize pass= Do While Len(pass)
- 家居搬到线上卖,“宅经济”拉动商业新零售
- 2019中国连锁百强发布 苏宁、国美、红星美凯龙居三甲
- 在.NET2.0中使用自定义事务操作
- asp.net 大文件上传 之 改版了的SlickUpload.HttpUploadMod
- 疫情冲击海外市场一定糟?冰箱多国卖到市场第一,海尔2020干
- 飞利浦“变卖”家电业务,国内巨头为何争当“接盘侠”?
站长推荐
热点阅读