asp中创建多级目录的两段代码

2024-05-04 11:01:43

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:
        '==============================
        '创建多级目录，可以创建不存在的根目录
        '参数：要创建的目录名称，可以是多级
        '创建目录的根目录从当前目录开始
        '''调用举例
        ''Call CreateMultiFolder("/upload/jumbot/myphoto/")
        '==============================

        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
                If Right(CreateFolder, 1) = "/" Then
                        CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)
                End If
                CreateFolderArray = Split(CreateFolder, "/")
                For i = 0 To UBound(CreateFolderArray)

上一篇：asp 之上传漏洞终结篇

下一篇：ASP中类Class相关内容的整理资料