一个可以自动创建多级目录的函数-巨人网络通讯

%
'创建多级目录，可以创建不存在的根目录
'参数：要创建的目录名称，可以是多级
'返回逻辑值，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功能)

您可能感兴趣的文章:

让你的博文自动带上缩址的实现代码，方便发到微博客上
用ajax自动加载blogjava和博客园的rss
Linux下SVN服务器自动更新文件到Web目录的方法
rsync备份时自动创建目录的方法
使用visual studio自动创建IIS虚拟目录
Windows下实现MySQL自动备份的批处理(复制目录或mysqldump备份)
php自动获取目录下的模板的代码
使用FTP下载目录，即FTP命令批量自动下载的bat文件
使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
详解自动生成博客目录案例

标签：平顶山马鞍山四平辽阳防城港朝阳孝感湖北

巨人网络通讯声明：本文标题《一个可以自动创建多级目录的函数》，本文关键词一个,可以,自动,创建,多级,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。