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

您可能感兴趣的文章:

• Linux命令行和shell脚本编程宝典 Richard Blum
• 利用shell编程实现DOS风格的Linux命令行
• php文件打包 下载之使用PHP自带的ZipArchive压缩文件并下载打包好的文件
• PHP 压缩文件夹的类代码
• 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
• 压缩文件管理器 WinRAR v3.70 Beta 7 下载
• Linux下的压缩文件剖析
• PHP调用Linux的命令行执行文件压缩命令