婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 一個可以自動創建多級目錄的函數

一個可以自動創建多級目錄的函數

熱門標簽:成都ai外呼系統線路 廣東語音外呼系統公司 沈陽電話機器人公司 云南便宜外呼系統平臺 鄭州智能外呼電銷機器人廠家 虛擬電話外呼系統 鄢陵學校如何做地圖標注 長春公司外呼系統中心 沈陽三五防封電銷卡
%
'創建多級目錄,可以創建不存在的根目錄
'參數:要創建的目錄名稱,可以是多級
'返回邏輯值,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和一對魔術戲法自動地創立一個虛擬目錄的方法
  • 詳解自動生成博客目錄案例

標簽:平頂山 馬鞍山 四平 遼陽 防城港 朝陽 孝感 湖北

巨人網絡通訊聲明:本文標題《一個可以自動創建多級目錄的函數》,本文關鍵詞  一個,可以,自動,創建,多級,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《一個可以自動創建多級目錄的函數》相關的同類信息!
  • 本頁收集關于一個可以自動創建多級目錄的函數的相關信息資訊供網民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 无锡市| 灵川县| 正安县| 桐庐县| 香格里拉县| 休宁县| 建德市| 凤山县| 绿春县| 西平县| 遵化市| 许昌市| 舟曲县| 资阳市| 右玉县| 渭南市| 长葛市| 阳原县| 曲松县| 黔江区| 安泽县| 易门县| 龙口市| 广东省| 宁海县| 鹰潭市| 清河县| 化德县| 韶关市| 兰西县| 宜阳县| 新野县| 闽侯县| 化德县| 鄯善县| 特克斯县| 彭阳县| 泗洪县| 增城市| 营山县| 乌海市|