<%

Dimfso,f,folder

Setfso=Server.CreateObject("scripting.filesystemobject")

'改目录名

Setfolder=fso.getfolder(Server.Mappath("Old"))

folder.name="New"'新名字

'改文件名

Setf=fso.getfile(Server.Mappath("Old.asp"))

f.name="New.asp"'新名字

'释放

%>