编程开发论坛 - Powered by Discuz! Board

标题: 怎么样对一个文件改名。 [打印本页]

作者: 剑心 时间: 2006-5-22 14:08 标题: 怎么样对一个文件改名。

怎么样对一个文件改名。

作者: liuzhusuoai 时间: 2006-5-22 14:08

重命名
JUST  A  JOKE

用FSO  啊

作者: xingyungulang 时间: 2006-5-22 14:09

有二种方法，一个是用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 时间: 2006-5-22 14:09

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

objfs.copyfile  old_file_name,new_file_name

set  objfs=nothing

作者: 大傻 时间: 2006-5-22 14:10

引用:

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

objfs.copyfile  old_file_name,new_file_name

set  objfs=nothing

同意楼上的

作者: hpp58 时间: 2006-6-15 15:18

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

objfs.copyfile  old_file_name,new_file_name

set  objfs=nothing
同意楼上的

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)