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

作者:

标题: 获取的文件大小能进行数值操作吗?

sureme
新手上路

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

『楼主』: 获取的文件大小能进行数值操作吗? 使用 LLM 解释/回答一下

继续昨天提出的问题,需求解答
详细描述:
先附注上昨天发布的问题(红色为昨天提出的问题,已经得到解决)
急救,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 楼』: 使用 LLM 解释/回答一下

我先顶上去,DX们看看哈

2006-12-27 20:24

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

jmz573515
银牌会员

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

『第 3 楼』: 使用 LLM 解释/回答一下

用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

查看资料发送邮件发短消息网志

编辑帖子回复引用回复