怎么样对一个文件改名。

怎么样对一个文件改名。
---------------------------------------------------------------

重命名
JUST A JOKE

用FSO 啊
---------------------------------------------------------------

有二种方法,一个是用fso的复制方法
copyfile(原文件路径,目录文件路径,false or true)
然后用deletefile(文件名,false)删除原文件
另一个是写文件写到别的一个新建文件,再删除原文件

set MyFileObject=server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("文件名")
Set myTextFile=MyFileObject.OpenTextFile(filename)
While not myTextFile.AtEndOfStream
Mytext=mytext+MytextFile.Readall

Wend

再创建一个文件
filename=server.MapPath("新文件名")
Set myTextFile=MyFileObject.OpenTextFile(filename,2,true,-2)
'the 2 meaning forwriting
'the ture meaning 如果页面不存在,就创建一个新的页面
mytextfile.writeline mytext

然后再用deletefile("原文件名",false)删除原文件

---------------------------------------------------------------

set objfs=server.createobject("scripting.filesystemobject")

objfs.copyfile old_file_name,new_file_name

set objfs=nothing
---------------------------------------------------------------

同意楼上的
---------------------------------------------------------------

set objfs=server.createobject("scripting.filesystemobject")

objfs.copyfile old_file_name,new_file_name

set objfs=nothing

Published At
Categories with Web编程
Tagged with
comments powered by Disqus