asp利用fso给文件夹和文件改名的代码

　　<%

　　Dim fso,f,folder

　　Set fso=Server.CreateObject("scripting.filesystemobject")

　　'改目录名

　　Set folder=fso.getfolder(Server.Mappath("Old"))

　　folder.name="New" '新名字

　　'改文件名

　　Set f=fso.getfile(Server.Mappath("Old.asp"))

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

　　'释放

　　%>