| 标题 | 用VBScript实现解压缩目录中的所有文件(Zip) |
| 内容 | 下面的代码主要是解压缩目录中的所有zip格式文件的实现代码，需要的朋友可以参考下 代码如下: 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。