中国DOS联盟

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 获取的文件大小能进行数值操作吗?

sureme
新手上路

积分 16
发帖 6
注册 2006-12-27
状态离线

『楼主』: 获取的文件大小能进行数值操作吗?

继续昨天提出的问题,需求解答
详细描述:
先附注上昨天发布的问题(红色为昨天提出的问题,已经得到解决)
急救,DOS获取文件大小

需求:现有两个文件,D:\35.RMVB,D:\35OK.RMVB,判断这两个文件大小是否一致,如果大小一致则删除D:\35.RMVB.
请给予帮助，小弟万分感谢。
第一次发贴，不足之处海涵。

新的问题:程序需要判断两个文件大小相差多少,如果相差的值<1000000字节则删除D:\35.RMVB.即35.RMVB的大小-35OK.RMVB的大小<1000000则删除D:\35.RMVB.

还请DX不吝赐教,或者提供更好的解决办法.目前由于特殊情况只能采用DOS下解决这个问题.

[ Last edited by sureme on 2006-12-27 at 07:23 AM ]

2006-12-27 20:17

sureme
新手上路

积分 16
发帖 6
注册 2006-12-27
状态离线

『第 2 楼』:

我先顶上去,DX们看看哈

2006-12-27 20:24

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 3 楼』:

用VBS写的.
具体内容请自行更改.(如文件,相差大小.)

Set fso=CreateObject("scripting.filesystemobject")

Set a=fso.GetFile ("d:\11.txt")

azj=a.Size

Set b=fso.getFile("d:\11k.txt")

bzj=b.Size

MsgBox azj &"    "&bzj&"     "&bzj-azj '这一行可以删除

If bzj-azj>1000 Then        '两个文件的相差值大于1000

fso.DeleteFile a,true

End if

[ Last edited by jmz573515 on 2006-12-27 at 07:53 AM ]

2006-12-27 20:50

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

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

论坛跳转: