Rename File Function
Code:
Highlight
<%option explicit%> <% dim fso, origFilename, NewFileName origFilename = server.MapPath("./") & "\whatever.html" NewFileName = "whatever2.html" renameFile origFilename, NewFileName %> <% function renameFile(origFilename, NewFileName) dim objfile set fso = server.CreateObject ("Scripting.Filesystemobject") if fso.FileExists(origFilename) then set objFile = fso.GetFile(origFilename) objfile.name = NewFileName else response.write "Error - Source file does not exist." set fso = nothing exit function end if set fso = nothing end function %>