您现在的位置是：网站首页> 编程资料编程资料
vbs实现压缩文件夹的脚本_vbs_
2023-05-25
351人已围观
简介 vbs实现压缩文件夹的脚本_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
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
您可能感兴趣的文章:
