VBScript脚本解压缩目录中的所有zip文件

find

1. On Error Resume Next
   
2. Dim objFSO,sourcepath,targetpath
   
3. 
   
4. Function GetZipFile(path)
   
5. Dim file,folder,sfolder,subfolder,files
   
6. If Not objFSO.FolderExists(path) Then
   
7. Msgbox "目标文件夹不存在！"
   
8. Else
   
9. objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath))
   
10. Set folder=objFSO.GetFolder(path)
    
11. Set files=folder.files
    
12. For Each file in files
    
13. If StrComp(objFSO.GetExtensionName(file.name),"zip",vbTextCompare)=0 Then
    
14. objShell.NameSpace(targetpath & Right(path,Len(path)-Len(sourcepath))).CopyHere objShell.NameSpace(path & "" & file.name).Items(),256
    
15. End If
    
16. Next
    
17. Set subfolder=folder.subfolders
    
18. For Each sfolder in subfolder
    
19. GetZipFile path & "" & sfolder.name
    
20. Next
    
21. End If
    
22. End Function
    
23. 
    
24. Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
    
25. Set oApp=CreateObject("Shell.Application")
    
26. sourcepath="C:\zipfiles"
    
27. targetpath="D:\tmp" & objFSO.GetFileName(sourcepath)
    
28. GetZipFile sourcepath
    
29. Set objFSO=Nothing
    
30. Set oApp=Nothing

复制代码

http://www.jb51.net/article/29533.htm