主頁(yè) > 知識(shí)庫(kù) > 一個(gè)可以自動(dòng)創(chuàng)建多級(jí)目錄的函數(shù)

一個(gè)可以自動(dòng)創(chuàng)建多級(jí)目錄的函數(shù)

%
'創(chuàng)建多級(jí)目錄，可以創(chuàng)建不存在的根目錄
'參數(shù)：要?jiǎng)?chuàng)建的目錄名稱，可以是多級(jí)
'返回邏輯值，True成功，F(xiàn)alse失敗
'創(chuàng)建目錄的根目錄從當(dāng)前目錄開(kāi)始
'---------------------------------------------------

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>" %>

'函數(shù)的返回值為T(mén)rue(成功)或False(失敗，可能是主機(jī)不支持FSO功能)

您可能感興趣的文章:

讓你的博文自動(dòng)帶上縮址的實(shí)現(xiàn)代碼，方便發(fā)到微博客上
用ajax自動(dòng)加載blogjava和博客園的rss
Linux下SVN服務(wù)器自動(dòng)更新文件到Web目錄的方法
rsync備份時(shí)自動(dòng)創(chuàng)建目錄的方法
使用visual studio自動(dòng)創(chuàng)建IIS虛擬目錄
Windows下實(shí)現(xiàn)MySQL自動(dòng)備份的批處理(復(fù)制目錄或mysqldump備份)
php自動(dòng)獲取目錄下的模板的代碼
使用FTP下載目錄，即FTP命令批量自動(dòng)下載的bat文件
使用ADSI、ASP和一對(duì)魔術(shù)戲法自動(dòng)地創(chuàng)立一個(gè)虛擬目錄的方法
詳解自動(dòng)生成博客目錄案例

標(biāo)簽：大理衢州江蘇棗莊萍鄉(xiāng) 衡水廣元蚌埠

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《一個(gè)可以自動(dòng)創(chuàng)建多級(jí)目錄的函數(shù)》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

佳木斯湛栽影视文化发展公司

一個(gè)可以自動(dòng)創(chuàng)建多級(jí)目錄的函數(shù)

QQ咨詢

電話咨詢