在ASP中自动创建多级文件夹的函数(使用FSO)-ASP教程,ASP技巧

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

函数:
 
——————————–
自动创建指定的多级文件夹
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 & 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
 

调用方法:

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