一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

fso 文件保存

时间:2008-08-28 编辑:简简单单 来源:一聚教程网

fso 文件保存,这里等的读取文件并保存了

sub SaveText(FileName,Data)  '这是一个用于写文本文件的过程


 set fs=createobject("scrip"&"ting.filesys"&"temob"&"ject")
 if instr(filename,":")<>0 then
   path=filename
 else
   path=server.MapPath(FileName)
 end if
   set ts=fs.createtextfile(path,true)
    ts.writeline(data)
    ts.close
    set ts=nothing
    set fs=nothing
end sub

热门栏目