关于ASP批量修改文件名的问题

请问为什么我这段代码可以显示已修改成功pic文件夹中的图片，但实际上文件夹中的文件名称还是好好的。望高手帮忙改改啊。
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile ="pic/"&request.form("xg1")
NFile ="pic/"&request.form("xg2")
on Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
Response.Write File & "文件不存在！"
Response.End
Elseif Err.Number = 58 Then
Response.Write File & "文件已存在！"
Response.End
Else

%>
<%
FsFolder="pic"
ServerFsFolder=Server.MapPath(""&FsFolder&"")
%>
<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ServerFsFolder)
Set fc = f.Files
filenum=fc.count

%>

<form id="form1" name="form1" method="POST" action="index.asp" onSubmit="return chksubmit();">
<%
i=0
For Each f1 in fc
Filenames= f1.name
i=i+1
%>
<p>
  原名 <input name="xg1" type="text" id="xg1" value=" <%=Filenames%>" size="25" />
<