关于自动创建多级目录的函数

编辑作者:www.789mux.com    在线用户:54    标签: sp   

你知道什么是自动创建多级目录的吗?自动创建多级目录可以为我们省下很多的复杂过程和不必要的麻烦,那么接下来我们就跟爱站小编去探讨一下关于自动创建多级目录的函数。

<%
'创建多级目录,可以创建不存在的根目录
'参数:要创建的目录名称,可以是多级
'返回逻辑值,True成功,False失败
'创建目录的根目录从当前目录开始
'---------------------------------------------------

Function CreateMultiFolder(ByVal CFolder)
    Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder
    Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo
    BlInfo = False
    CreateFolder = CFolder
    On Error Resume Next
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    If Err Then
        Err.Clear()
        Exit Function
    End If
    CreateFolder = Replace(CreateFolder, "", "/")
    If Left(CreateFolder, 1) = "/" Then
        CreateFolder = Right(CreateFolder, Len(CreateFolder) -1)
    End If
    If Right(CreateFolder, 1) = "/" Then
        CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)
    End If
    CreateFolderArray = Split(CreateFolder, "/")
    For i = 0 To UBound(CreateFolderArray)
        CreateFolderSub = ""
        For ii = 0 To i
            CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/"
        Next
        PhCreateFolderSub = Server.MapPath(CreateFolderSub)
        If Not objFSO.FolderExists(PhCreateFolderSub) Then
            objFSO.CreateFolder(PhCreateFolderSub)
        End If
    Next
    If Err Then
        Err.Clear()
    Else
        BlInfo = True
    End If
    CreateMultiFolder = BlInfo
End Function
%>

'使用方法:

<% Response.Write CreateMultiFolder("/upload/2006/11/11/") &"<br>" %>

'函数的返回值为True(成功)或False(失败,可能是主机不支持FSO功能)
以上就是关于关于自动创建多级目录的函数,看完后你学会了吗?如果你不认真学习的话,那么你将会永远止步不前。

请发表您的评论