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的命令行執行文件壓縮命令
