标题: 获取的文件大小能进行数值操作吗? [打印本页]
作者: sureme 时间: 2006-12-27 20:17 标题: 获取的文件大小能进行数值操作吗?
继续昨天提出的问题,需求解答
详细描述:
先附注上昨天发布的问题(红色为昨天提出的问题,已经得到解决)
急救,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 ]
作者: sureme 时间: 2006-12-27 20:24
我先顶上去,DX们看看哈
作者: jmz573515 时间: 2006-12-27 20:50
用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 ]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