asp自動(dòng)創(chuàng)建文件夾

    在asp操作文件中,遇到了創(chuàng)建多級(jí)文件夾,其實(shí)一級(jí)別的創(chuàng)建文件夾很簡(jiǎn)單,就fso(路徑)即可,但是遇到了多級(jí)文件夾,這就得寫(xiě)函數(shù)來(lái)創(chuàng)建多級(jí)文件夾
    相關(guān):php自動(dòng)創(chuàng)建文件夾
    asp自動(dòng)創(chuàng)建多級(jí)文件夾,當(dāng)其中文件夾不存在時(shí),自動(dòng)創(chuàng)建文件夾.
    代碼如下:
    <%@LANGUAGE = VBScript%>
    <%Option Explicit%>
    <%'asp版本自動(dòng)創(chuàng)建文件夾
    Dim fso,fso_flag,base,path,i
    set fso = CreateObject("Scripting.FileSystemObject")
    If isobject(fso) Then
    fso_flag = True
    Else
    fso_flag = false
    End If'
    If not fso_flag Then response.write"不支持fso.",response.End()
    base = request.ServerVariables("APPL_PHYSICAL_PATH")'獲取本地基本物理路徑
    'asp自動(dòng)創(chuàng)建文件夾函數(shù)開(kāi)始
    Function createdir(path)
    Dim temp_path,temp_path_array '定義私有路徑
    path = Replace(path,"\","/")
    ' response.write path
    If isnull(path) or path = "" Then
    createdir = False
    Exit Function
    End if
    If not fso.FolderExists(path) then
    '獲取次級(jí)目錄路徑
    temp_path_array = Split(path,"/")
    For i = 0 To UBound(temp_path_array)-1
    temp_path = temp_path&temp_path_array(i)&"/"
    Next'
    temp_path = Left(temp_path,Len(temp_path)-1)'獲取次級(jí)目錄
    if createdir(temp_path) Then
    fso.CreateFolder (path)
    createdir = true
    End If
    else'www.forasp.cn
    createdir = true
    Exit Function
    End if
    End Function
    'asp創(chuàng)建多級(jí)文件夾函數(shù)完畢
    path = base&"a/b/c"'因?yàn)閜ath獲取站點(diǎn)物理路徑最后包括"/",所以建立文件要以空開(kāi)頭,然后是文件夾名
    'response.write path
    If (createdir(path)) Then
    response.write "已經(jīng)創(chuàng)建"
    Else
    response.write "創(chuàng)建失敗"
    End if
    %>