asp创建多级文件夹，可以创建不存在的根目录

'==============================================' 作用：asp创建多级文件夹，可以创建不存在的根目录' 参数：要创建的目录名称，可以是多级' 返回逻辑值，True成功，False失败' 创建目录的根目录从当前目录开始' 自动创建指定的多级文件夹 ' strPath为绝对路径 '==============================================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