zoukankan      html  css  js  c++  java
  • ASP创建多级无限文件夹

    Function CreateMultiFolder(ByVal CFolder) '使用方法call CreateMultiFolder(flodern)
    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

  • 相关阅读:
    xtrabackup
    spark对机器的要求
    hbase的总结
    TO B公司高效能的组织建设实践
    如何给客户展示实力
    什么样的IT队伍是好队伍
    程序员如何使用OKR
    云原生
    Flink 的18个小知识点
    apt 常用命令
  • 原文地址:https://www.cnblogs.com/keringing/p/5368591.html
Copyright © 2011-2022 走看看