
CODE: [Copy to clipboard][ Last edited by jmz573515 on 2006-12-27 at 07:53 AM ]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |