中文字幕久久综合,国产一区二区三区一级,最新国产精品久久

%
'創建多級目錄，可以創建不存在的根目錄
'參數：要創建的目錄名稱，可以是多級
'返回邏輯值，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和一對魔術戲法自動地創立一個虛擬目錄的方法
詳解自動生成博客目錄案例

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

巨人網絡通訊聲明：本文標題《一個可以自動創建多級目錄的函數》，本文關鍵詞一個,可以,自動,創建,多級,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。

校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

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