<% '创建多级目录，可以创建不存在的根目录 '参数：要创建的目录名称，可以是多级 '返回逻辑值，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功能)