标题: NTFS批量压缩解压文件（蓝色的那种文件） [打印本页]
作者: fastslz 时间: 2008-3-3 23:24 标题: 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
解压>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
>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