vbs實(shí)現(xiàn)壓縮文件夾的腳本
更新時(shí)間：2008年06月16日 19:44:14 作者：
用vbs實(shí)現(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教程：函數(shù)-TypeName 函數(shù)
VBS教程：函數(shù)-TypeName 函數(shù)...2006-11-11
VBS教程：方法-BuildPath 方法...2006-11-11
使用ADSI、ASP和一對(duì)魔術(shù)戲法自動(dòng)地創(chuàng)立一個(gè)虛擬目錄的方法
使用ADSI、ASP和一對(duì)魔術(shù)戲法自動(dòng)地創(chuàng)立一個(gè)虛擬目錄的方法...2007-03-03
VBS教程：函數(shù)-轉(zhuǎn)換函數(shù)
VBS教程：函數(shù)-轉(zhuǎn)換函數(shù)...2006-11-11
發(fā)現(xiàn)大部分黑白的朋友都不會(huì)編程, 這可不是件好事, 所以這次我就寫了一個(gè)簡(jiǎn)單的編程教程, 講一下VBScript. 主要面向菜鳥, 懂得編程的朋友就不要浪費(fèi)時(shí)間了2007-12-12
bytes2BSTR...2007-01-01
VBS教程：屬性-TotalSize 屬性...2006-11-11
VBS基礎(chǔ)篇 - vbscript class類的定義與使用
vbs Class就是聲明一個(gè)類的名稱，以及組成該類的變量、屬性和方法的定義,需要的朋友可以參考下2018-05-05
用vbs實(shí)現(xiàn)的自動(dòng)填寫表單的代碼分析，希望大家注意代碼的寫法2008-06-06
WMI StdRegProv 通過wmi操作注冊(cè)表的vbscript實(shí)現(xiàn)代碼 (本地或遠(yuǎn)程)
WMI StdRegProv 通過wmi操作注冊(cè)表的vbscript實(shí)現(xiàn)代碼 (本地或遠(yuǎn)程)，需要的朋友可以參考下。2011-12-12