for each file in files 访问集合出现的问题

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder("f:/新建文件夹")
set files=folder.files
for each file in files
if fso.getextensionname(file)=""then
file.name=left(file.name,2) & ".rmvb"
else
file.name=left(file.name,2)
end if
next

修改该目录下的文件的后缀

files.count=8

循环的次数却为10？