使用FSO自动创建多级文件夹的函数

作者:网络 来源:佚名 更新时间:2008-12-04 18:43:12 点击:

 

开启fso权限 在 开始-“运行”中执行regsvr32.exe scrrun.dll即可。如想关闭fso权限,在上述命令中加/u参数。注册表中的键值位置:hkey_class_boot\f.s.o .fso中有个方法是createfolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便。函数:

以下为引用的内容:
’ --------------------------------
’ 自动创建指定的多级文件夹
’ strpath为绝对路径
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