<%
Dimfso,f,folder
Setfso=Server.CreateObject("scripting.filesystemobject")
'Change directory name
Setfolder=fso.getfolder(Server.Mappath("Old"))
folder.name="New"'New name
'Change the file name
Setf=fso.getfile(Server.Mappath("Old.asp"))
f.name="New.asp"'New Name
'release
%>