获取的文件大小能进行数值操作吗? - 中国DOS联盟论坛

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

第1楼　sureme	发表于 2006-12-27 20:17
新手上路　发帖 6　积分 16
获取的文件大小能进行数值操作吗? 继续昨天提出的问题,需求解答详细描述: 先附注上昨天发布的问题(红色为昨天提出的问题,已经得到解决) 急救,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 ]

第2楼　sureme	发表于 2006-12-27 20:24
新手上路　发帖 6　积分 16
我先顶上去,DX们看看哈

第3楼　jmz573515	发表于 2006-12-27 20:50
银牌会员　发帖 464　积分 1,212
用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 ]