查看完整版本: 怎么样对一个文件改名。

怎么样对一个文件改名。

怎么样对一个文件改名。

重命名  
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

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

objfs.copyfile  old_file_name,new_file_name  

set  objfs=nothing [/quote]
同意楼上的

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

objfs.copyfile  old_file_name,new_file_name  

set  objfs=nothing
同意楼上的