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

1. <%  
2. Dim fso,f,folder  
3.     Set fso=Server.CreateObject("scripting.filesystemobject")  
4.     '改目录名  
5.     Set folder=fso.getfolder(Server.Mappath("Old"))  
6.     folder.name="New" '新名字  
7.  
8.     '改文件名  
9.     Set f=fso.getfile(Server.Mappath("Old.asp"))  
10.     f.name="New.asp" '新名字  
11. '释放  
12. %>