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

上一篇：win2003的“由于下列错误，Parallel port driver 服务启动失败的解决方法”
下一篇：在这个流行挂马的年代建站