vbs實現(xiàn)壓縮文件夾的腳本
更新時間：2008年06月16日 19:44:14 作者：
用vbs實現(xiàn)壓縮文件夾的代碼，可以壓縮文件夾，減少文件占用體積
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
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
相關(guān)文章
VBS教程：屬性-DriveType 屬性...2006-11-11
最早學(xué)會用而且喜歡的一門編程語言應(yīng)該是 VBS，雖然 C 比較早學(xué)，但學(xué)了后很長時間里沒辦法使用 C 來寫程序，因為當(dāng)時自己沒錢買電腦，所以沒有 C 編譯器。2008-06-06
vbscript，jscript腳本編程教學(xué)（1）
vbscript，jscript腳本編程教學(xué)（1）...2007-03-03
黑客必須要知道的幾個vbs文件代碼...2007-03-03
VBS教程：運算符-比較運算符...2006-11-11
VBS Runas 自動輸入密碼 提權(quán)腳本等功能2009-06-06
簡單用VBS調(diào)用企業(yè)微信機器人發(fā)定時消息的方法
這篇文章主要介紹了簡單用VBS調(diào)用企業(yè)微信機器人發(fā)定時消息的方法，文中通過示例代碼介紹的非常詳細(xì)，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-07-07
利用VBS腳本修改聯(lián)想筆記本BIOS密碼的代碼分享
這篇文章主要介紹了利用VBS腳本修改聯(lián)想筆記本BIOS密碼的實現(xiàn)代碼，感覺這不科學(xué)！無意中找到的一些資料，喜歡的朋友可以試試2013-07-07
vbs中關(guān)于計算機名的相關(guān)討論...2007-03-03
VBS教程：方法-Raise 方法...2006-11-11