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

  '释放

  %>