在asp中自动创建多级文件夹的函数使用fso

【2006年10月24日 10:30:46】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

fso中有个方法是createfolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便.

函数:

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

dim astrpath, ulngpath, i, strtmppath
dim objfso

        if instr(strpath, "\") <=0 or instr(strpath, ":") <= 0 then
                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 !amp; astrpath(i) !amp; "\"
                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

调用方法:

code:
mypath = "c:\a\b\c\"
if autocreatefolder(mypath) then
response.write "创建文件夹成功"
else
response.write "创建文件夹失败"
end if

(『印像空间』　【本文来源：『转载』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：