ASP批量修改文件名的问题

<%
Dim fso:Set fso=Server.CreateObject("Scripting.FileSystemObject")
Dim files:Set files=fso.GetFolder(Server.MapPath("dll")).files
Dim fileName,Ext,NewFileName,TempArr
For Each f In files
TempArr=split(f.name,".")
Ext=TempArr(1)
fileName=TempArr(0)
NewFileName="三分之二"&"-"&fileName&"."&Ext
f.name=NewFileName
Next
Set files=Nothing
Set fso=Nothing
Response.Write "操作完成"
%>

现在情况是这样，执行过后所有文件前面增加了三次“三分之二”和“-”，这是为什么呢？