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
您可能感兴趣的文章:
- Linux命令行和shell脚本编程宝典 Richard Blum
- 利用shell编程实现DOS风格的Linux命令行
- php文件打包 下载之使用PHP自带的ZipArchive压缩文件并下载打包好的文件
- PHP 压缩文件夹的类代码
- 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
- 压缩文件管理器 WinRAR v3.70 Beta 7 下载
- Linux下的压缩文件剖析
- PHP调用Linux的命令行执行文件压缩命令
本文由 华域联盟 原创撰写：华域联盟 » vbs实现压缩文件夹的脚本
转载请保留出处和原文链接：https://www.cnhackhy.com/15229.htm
