Board logo

标题: [转贴] VBScript脚本把指定目录中的所有文件压缩为zip [打印本页]

作者: find    时间: 2012-2-29 23:14     标题: VBScript脚本把指定目录中的所有文件压缩为zip

  1. On Error Resume Next
  2. Dim objFSO,sourcepath,targetpath,targetfile
  3. Function GetSourceFile(path)
  4. Dim file,folder,sfolder,subfolder,files
  5. If Not objFSO.FolderExists(path) Then
  6. Msgbox "目标文件夹不存在!"
  7. Else
  8. objFSO.CreateFolder targetpath & Right(path,Len(path)-Len(sourcepath))
  9. Set folder=objFSO.GetFolder(path)
  10. Set files=folder.files
  11. For Each file in files
  12. targetfile=targetpath & Right(path,Len(path)-Len(sourcepath)) & "\" & file.name & ".zip"
  13. Set fp=objFSO.OpenTextFile(targetfile,2,True)
  14. fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18,0)
  15. fp.Close
  16. oApp.Namespace(targetfile).CopyHere path & "\" & file.name
  17. WScript.Sleep 1000
  18. Next
  19. Set subfolder=folder.subfolders
  20. For Each sfolder in subfolder
  21. GetSourceFile path & "\" & sfolder.name
  22. Next
  23. End If
  24. End Function
  25. Set objFSO=CreateObject("Scripting.FileSystemObject")
  26. Set oApp=CreateObject("Shell.Application")
  27. sourcepath="C:\Documents and Settings\Administrator\桌面\Watermarks"
  28. targetpath="D:\temp"
  29. GetSourceFile sourcepath
  30. Set objFSO=Nothing
  31. Set oApp=Nothing
复制代码


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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2