vbs实现压缩文件夹的脚本
摘要：strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonation...
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!"&strComputer&"rootcimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_Directorywhere")
ForEachobjFolderincolFolders
errResults=objFolder.Compress
Wscript.EchoerrResults
Next
【vbs实现压缩文件夹的脚本】相关文章：