NTFS批量压缩解压文件（蓝色的那种文件） - 中国DOS联盟论坛

压缩

@echo off
>tmp.vbs echo If WScript.Arguments.Count=0 Then Wscript.Quit
>>tmp.vbs echo set WMI = GetObject("Winmgmts:")
>>tmp.vbs echo set aFile = WMI.Get("Cim_Datafile='" ^& WScript.Arguments(0) ^& "'")
>>tmp.vbs echo If aFile Is Nothing Then
>>tmp.vbs echo 	Wscript.Quit
>>tmp.vbs echo 	Else
>>tmp.vbs echo 	aFile.Compress
>>tmp.vbs echo End If
for /f "delims=*" %%i in ('dir /b/s/a-d *.txt') do tmp.vbs "%%i"
del tmp.vbs
pause

解压

@echo off
>tmp.vbs echo If WScript.Arguments.Count=0 Then Wscript.Quit
>>tmp.vbs echo set WMI = GetObject("Winmgmts:")
>>tmp.vbs echo set aFile = WMI.Get("Cim_Datafile='" ^& WScript.Arguments(0) ^& "'")
>>tmp.vbs echo If aFile Is Nothing Then
>>tmp.vbs echo 	Wscript.Quit
>>tmp.vbs echo 	Else
>>tmp.vbs echo 	aFile.UnCompress
>>tmp.vbs echo End If
for /f "delims=*" %%i in ('dir /b/s/a-d *.txt') do tmp.vbs "%%i"
del tmp.vbs
pause

第1楼　fastslz	发表于 2008-03-03 23:24
铂金会员　发帖 2,315　积分 5,493　来自上海
NTFS批量压缩解压文件（蓝色的那种文件）压缩 @echo off >tmp.vbs echo If WScript.Arguments.Count=0 Then Wscript.Quit >>tmp.vbs echo set WMI = GetObject("Winmgmts:") >>tmp.vbs echo set aFile = WMI.Get("Cim_Datafile='" ^& WScript.Arguments(0) ^& "'") >>tmp.vbs echo If aFile Is Nothing Then >>tmp.vbs echo Wscript.Quit >>tmp.vbs echo Else >>tmp.vbs echo aFile.Compress >>tmp.vbs echo End If for /f "delims=" %%i in ('dir /b/s/a-d .txt') do tmp.vbs "%%i" del tmp.vbs pause 解压 @echo off >tmp.vbs echo If WScript.Arguments.Count=0 Then Wscript.Quit >>tmp.vbs echo set WMI = GetObject("Winmgmts:") >>tmp.vbs echo set aFile = WMI.Get("Cim_Datafile='" ^& WScript.Arguments(0) ^& "'") >>tmp.vbs echo If aFile Is Nothing Then >>tmp.vbs echo Wscript.Quit >>tmp.vbs echo Else >>tmp.vbs echo aFile.UnCompress >>tmp.vbs echo End If for /f "delims=" %%i in ('dir /b/s/a-d .txt') do tmp.vbs "%%i" del tmp.vbs pause