FSO(fileSystemObject)判断文件及文件夹是否存在

fso中判断文件夹是否存在
set fso = server.createobject("scripting.filesystemobject")
if fso.FolderExists(server.mappath("../folderName"))=false then
REsponse.write("此文件夹不存在")
end if


fso中判断文件是否存在
set fso = server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath("../folderName/fileName.htm")) = true then
Response.write("文件存在")
end if


fso中写文件
dim fileName,fileContent
fileName = replace(date(),"-","")
randomize
fileName = fileName & cstr(int(rnd(10)*100000)) & ".htm"
HtmlName = fileName 'HtmlName为数据库中的文件名
set fso = server.CreateObject("scripting.filesystemobject")
if fso.FolderExists(server.MapPath("./Files"))=false then '检查要生成的HTML文件夹是否存在
fso.CreateFolder(server.MapPath("../Files"))
end if
fileName = server.MapPath("../Files") & "/" & fileName
set MyFile = fso.opentextfile(fileName,2,true)
fileContent = "....(content)"
MyFile.write(fileContent)
MyFile.Close()
set MyFile = nothing


fso中删除文件
set fso = server.createobject("script.filesystemobject")
fileName = ..
fso.deletefile(fileName)
set fso = nothing



上一篇: asp之数学函数
下一篇: VB无法添加WebBrowse控件
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: fso
相关日志:
评论: 0 | 引用: 0 | 查看次数: 7404
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭

 广告位

↑返回顶部↑