想了解vbs实现压缩文件夹的脚本的相关内容吗，在本文为您仔细讲解vbs 压缩文件夹的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：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
