vbs实现压缩文件夹的脚本

 更新时间:2008年06月16日 19:44:14   转载 作者:  
用vbs实现压缩文件夹的代码,可以压缩文件夹,减少文件占用体积
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery _
    ("Select * from Win32_Directory where ")
For Each objFolder in colFolders
    errResults = objFolder.Compress
    Wscript.Echo errResults
Next

相关文章

最新评论