VBScript脚本把指定目录中的所有文件压缩为zip

find

1. On Error Resume Next
   
2. Dim objFSO,sourcepath,targetpath,targetfile
   
3. 
   
4. Function GetSourceFile(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. targetfile=targetpath & Right(path,Len(path)-Len(sourcepath)) & "" & file.name & ".zip"
    
14. Set fp=objFSO.OpenTextFile(targetfile,2,True)
    
15. fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
    
16. fp.Close
    
17. oApp.Namespace(targetfile).CopyHere path & "" & file.name
    
18. WScript.Sleep 1000
    
19. Next
    
20. Set subfolder=folder.subfolders
    
21. For Each sfolder in subfolder
    
22. GetSourceFile path & "" & sfolder.name
    
23. Next
    
24. End If
    
25. End Function
    
26. 
    
27. Set objFSO=CreateObject("Scripting.FileSystemObject")
    
28. Set oApp=CreateObject("Shell.Application")
    
29. sourcepath="C:\Documents and Settings\Administrator\桌面\Watermarks"
    
30. targetpath="D:\temp"
    
31. GetSourceFile sourcepath
    
32. Set objFSO=Nothing
    
33. Set oApp=Nothing

复制代码

使用方法:
直接将上面的代码保存为test.vbs文件，然后修改sourcepath与targetpath注意目标目录必须是新目录，使用的时候最好加上判断。
http://www.jb51.net/article/29532.htm