当前位置:96看吧 > 技术文档 > ASP编程 > asp函数FSO生成目录与文件

asp函数FSO生成目录与文件

时间:2009/12/10
作者:诚心(MaWenDong)
来源:96看吧
查看:
标签:asp函数

'================================================================
'FSO生成目录
'folder 路径
'支持 相对路径 绝对路径
'相对路径格式: \a\c\c
'绝对路径格式: ../../c
'================================================================
function fso_create_folder(folder)
 '首选判断要建立的文件夹是否已经存在
 dim fsocf_folder,fsocf,fsocf_cf
 fsocf_folder = Server.Mappath(folder)
 Set fsocf = Server.CreateObject("Scripting.FileSystemObject")
     '检查文件夹是否存在
  If fsocf.FolderExists(fsocf_folder)= true Then
   '存在
  Else
   '不存在,则建立
   Set fsocf_cf = fsocf.CreateFolder(fsocf_folder)
   fsocf_cf.close
   Set fsocf_cf = Nothing
  End If
 Set fsocf = Nothing
End function

'================================================================
'FSO生成文件
'code 内容
'path 目录
'textfile 文件
'================================================================
function fso_create_textfile(code,path,textfile)
 call fso_create_folder(path)    '检测生成目录是否存在,如不存在则建立.
 dim fsoctf_code_code,fsoctf_code_path,fsoctf_textfile,fsoctf,fsoctf_ctf
 fsoctf_code = code
 fsoctf_path = Server.MapPath(path)
 fsoctf_textfile = textfile
 Set fsoctf = Server.CreateObject("Scripting.FileSystemObject")
 Set fsoctf_ctf = fsoctf.CreateTextFile(fsoctf_path&"/"&fsoctf_textfile,true)
  fsoctf_ctf.WriteLine fsoctf_code
  fsoctf_ctf.close
 set fsoctf_ctf=nothing
 set fsoctf=nothing
End function
 

上一篇:ASP中的面向对象类
下一篇:ASP函数ReplaceHTML()去掉全部HTML标记
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门