<input id="ik4oi"><tt id="ik4oi"></tt></input>
<input id="ik4oi"></input>
  • <menu id="ik4oi"></menu>

    將想法與焦點和您一起共享

    FSO創建多級文件夾發布者:本站     時間:2020-05-06 16:05:21

    FSO中有個方法是CreateFolder,但是這個方法只能在其上一級文件夾存在的情況下創建新的文件夾,所以我就寫了一個自動創建多級文件夾的函數,在生成靜態頁面等方面使用非常方便.

    函數:

    ' --------------------------------
    ' 自動創建指定的多級文件夾
    ' strPath為絕對路徑
    ' 引用請保留版權
    ' by im286_Anjer
    ' 2005-4-3
    Function AutoCreateFolder(strPath) ' As Boolean
    On Error Resume Next

    Dim astrPath, ulngPath, i, strTmpPath
    Dim objFSO

    If InStr(strPath, "") <=0 Or InStr(strPath, ":") <= 0 Then
    AutoCreateFolder = False
    Exit Function
    End If
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(strPath) Then
    AutoCreateFolder = True
    Exit Function
    End If
    astrPath = Split(strPath, "")
    ulngPath = UBound(astrPath)
    strTmpPath = ""
    For i = 0 To ulngPath
    strTmpPath = strTmpPath & astrPath(i) & ""
    If Not objFSO.FolderExists(strTmpPath) Then
    ' 創建
    objFSO.CreateFolder(strTmpPath)
    End If
    Next
    Set objFSO = Nothing
    If Err = 0 Then
    AutoCreateFolder = True
    Else
    AutoCreateFolder = False
    End If
    End Function

    調用方法:

    MyPath = "C:abc"
    If AutoCreateFolder(MyPath) Then
    Response.Write "創建文件夾成功"
    Else
    Response.Write "創建文件夾失敗"
    End If



    選擇我們,優質服務,不容錯過
    1. 優秀的網絡資源,強大的網站優化技術,穩定的網站和速度保證
    2. 15年上海網站建設經驗,優秀的技術和設計水平,更放心
    3. 全程省心服務,不必擔心自己不懂網絡,更省心。
    ------------------------------------------------------------
    24小時聯系電話:021-58370032
    92国产精品午夜福利_国产亚洲美女精品久久久_在线观看亚洲区激情AV_国产人无码A在线西瓜影音_人妻少妇精品视频三区二区一区