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