中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

fastslz
铂金会员

DOS一根葱

积分 5493
发帖 2315
注册 2006-5-1
来自上海
状态离线

『楼主』: 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

第一高手 第二高手
我的小站

2008-3-3 23:24

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: