<% 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"'新名字 '释放 %>