首页  »  网页设计教程  »  在ASP中自动创建多级文件夹的函数 利用FSO

在ASP中自动创建多级文件夹的函数 利用FSO

浏览数:共 618 次     评论:共 0 条     发布日期:2011-08-17     分类:asp


" --------------------------------
" 自动创建指定的多级文件夹
" strpath为绝对路径
" 引用请保留版权
" by im286_anjer
" 2005-4-3
function autocreatefolder(strpath) " as boolean
on error resume next

dim objfso

autocreatefolder = false
exit function
end if
set objfso = server.createobject("scripting.filesystemobject")
if objfso.folderexists(strpath) then
autocreatefolder = true
exit function
end if
astrpath = split(strpath, "")
ulngpath = ubound(astrpath)
strtmppath = ""
for i = 0 to ulngpath
strtmppath = strtmppath &; astrpath(i) &; ""
if not objfso.folderexists(strtmppath) then
" 创建
objfso.createfolder(strtmppath)
end if
next
set objfso = nothing
if err = 0 then
autocreatefolder = true
else
autocreatefolder = false
end if
end function

调用方法:

if autocreatefolder(mypath) then
response.write "创建文件夹成功"
else
response.write "创建文件夹失败"
end if



上一篇:常用Email组件发送函数
下一篇:利用instr 函数防止SQL注入攻击