剑心

怎么样对一个文件改名。

liuzhusuoai

重命名  
JUST  A  JOKE  

用FSO  啊

xingyungulang

有二种方法，一个是用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)删除原文件

yangchilang

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

objfs.copyfile  old_file_name,new_file_name  

set  objfs=nothing

大傻

引用:

原帖由 yangchilang 于 2006-5-22 14:09 发表
set  objfs=server.createobject("scripting.filesystemobject")  

objfs.copyfile  old_file_name,new_file_name  

set  objfs=nothing

同意楼上的

hpp58

QUOTE:
原帖由 yangchilang 于 2006-5-22 14:09 发表
set  objfs=server.createobject("scripting.filesystemobject")  

objfs.copyfile  old_file_name,new_file_name  

set  objfs=nothing
同意楼上的