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实现压缩文件夹的脚本】相关文章:
★ 用vbs实现在启动 Windows 资源管理器时打开特定文件夹