NTFS批量压缩解压文件（蓝色的那种文件） - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

压缩

@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