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

　　推荐阅读

　　如何保持数据库输出格式不变

如何保持数据库中原有格式不变：这些问题在论坛里面几乎天天有人问~！ 其实当在输入信息，然后提交信息的时候，所有内容的格式是没有变的。 只是在当提取数据库的时候，某些特殊的东西需要将它们显示出来：比如空格>>>详细阅读

本文标题：一个可以自动创建多级目录的函数

地址：http://www.17bianji.com/kaifa2/ASP/32771.html

 1/2    1