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
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
相关文章
使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法...2007-03-03
VBS基础篇 - vbscript class类的定义与使用
vbs Class就是声明一个类的名称,以及组成该类的变量、属性和方法的定义,需要的朋友可以参考下2018-05-05
WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程)
WMI StdRegProv 通过wmi操作注册表的vbscript实现代码 (本地或远程),需要的朋友可以参考下。2011-12-12


最新评论