<script language=vbscript runat=server>


Server.ScriptTimeOut = 9999


Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function


 

 </script>

http://wenku.baidu.com/view/ebc8a16e1eb91a37f1115c89.html