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
相关文章
VBS教程：属性-DriveType 属性...2006-11-11
最早学会用而且喜欢的一门编程语言应该是 VBS，虽然 C 比较早学，但学了后很长时间里没办法使用 C 来写程序，因为当时自己没钱买电脑，所以没有 C 编译器。2008-06-06
vbscript，jscript脚本编程教学（1）...2007-03-03
黑客必须要知道的几个vbs文件代码...2007-03-03
VBS教程：运算符-比较运算符...2006-11-11
VBS Runas 自动输入密码 提权脚本等功能2009-06-06
这篇文章主要介绍了简单用VBS调用企业微信机器人发定时消息的方法，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧2020-07-07
这篇文章主要介绍了利用VBS脚本修改联想笔记本BIOS密码的实现代码，感觉这不科学！无意中找到的一些资料，喜欢的朋友可以试试2013-07-07
vbs中关于计算机名的相关讨论...2007-03-03
VBS教程：方法-Raise 方法...2006-11-11
最新评论