一聚教程网:一个值得你收藏的教程网站

热门教程

asp fso 文件重命名教程

时间:2022-06-30 11:44:04 编辑:袖梨 来源:一聚教程网


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

热门栏目