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編程實(shí)現(xiàn)DOS風(fēng)格的Linux命令行php文件打包 下載之使用PHP自帶的ZipArchive壓縮文件并下載打包好的文件PHP 壓縮文件夾的類代碼用vbs實(shí)現(xiàn)的簡單的服務(wù)器文件備份辦法壓縮文件名自動(dòng)按日期命名壓縮文件管理器 WinRAR v3.70 Beta 7 下載Linux下的壓縮文件剖析PHP調(diào)用Linux的命令行執(zhí)行文件壓縮命令