用VBScript实现Zip解压缩目录中的所有文件
2012-06-20 00:00
337 查看
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
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实现Zip压缩目录中的所有文件
- Java实现Zip压缩/解压缩目录中的所有文件
- C#实现Zip压缩目录中所有文件的方法
- python的zipfile实现文件目录解压缩
- linux下c语言实现搜索根目录下所有文件(转-wangxiangshang)
- 一句话实现当前目录下所有新文件添加到svn
- 通过java递归思想实现以树形方式展现出该目录中的所有子目录和文件
- Java实现——字符串分割以及复制目录下的所有文件
- ubuntu 用shell脚本实现将当前目录下所有目录中的某一类文件拷贝到同一目录下
- php实例分享之通过递归实现删除目录下的所有文件详解
- java实现文件zip压缩或者解压缩
- vc++ 实现dir一个目录中所有文件功能
- C# 下利用ICSharpCode.SharpZipLib.dll实现文件/目录压缩、解压缩
- Linux下使用shell实现上传linux下某个目录下所有文件到ftp
- php 删除目录下N分钟前创建的所有文件的实现代码
- vc++ 实现dir一个目录中所有文件功能
- 通过java递归思想实现以树形方式展现出该目录中的所有子目录和文件
- C#实现的列出目录下所有子目录和文件的程序(附思路)