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