发新话题
打印

怎么样对一个文件改名。

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

TOP

发新话题