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

---

« 
» 

---