asp fso 文件重命名教程

sub copyfile(FileName1,filename2)  '这是一个用于改文件名的函数
  On Error Resume Next
 set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
 if instr(filename1,":")<>0 then
   path1=filename1
 else
   path1=server.MapPath(FileName1)
 end if

 if instr(filename2,":")<>0 then
   path1=filename2
 else
   path2=server.MapPath(FileName2)
 end if

    fs.copyfile path1,path2
    set ts=nothing
end sub

补充：asp教程,FSO专题

上一个：fso创建删除文件和文件夹函数
下一个：fso 文件保存