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的命令行执行文件压缩命令
