作家
登录

asp中创建多级目录的两段代码

作者: 来源:www.28hudong.com 2013-03-30 08:42:13 阅读 我要评论

复制代码 代码如下: '============================== '创建多级目录,可以创建不存在的根目录 '参数:要创建的目录名称,可以是多级 '创建目录的根目录从当前目录开始 '''调用举例 ''Call CreateMultiFolder("/upload/jumbot/myphoto/") '============================== 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 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上面的是循环 下面的是正则复制代码 代码如下: '============================== ''创建文件目录(多层) ''使用正则 '============================== Function Create_N_Folder(save, ByVal Path) Dim Fso Set Fso = Server.CreateObject("Scripting.FileSystemObject") If Not Fso.FolderExists(Path) Then Dim regEx Set regEx = New RegExp regEx.Pattern = "^(.*)\([^\]*)$" regEx.Global = False regEx.IgnoreCase = True save = save & regEx.Replace(Path, "$2") & "|" Path = regEx.Replace(Path, "$1") If Create_N_Folder(save, Path) Then Create_N_Folder = True Set regEx = Nothing Else If save = "|" Then Create_N_Folder = True Else Dim Temp Temp = Mid(save, 2, Len(save) - 2) If InStrRev(Temp, "|") = 0 Then save = "|" Path = Path & "" & Temp Else Dim Folder Folder = Mid(Temp, InStrRev(Temp, "|") + 1) save = "|" & Mid(Temp, 1, InStrRev(Temp, "|") - 1) & "|" Path = Path & "" & Folder End If Fso.CreateFolder Path If Create_N_Folder(save, Path) Then Create_N_Folder = True End If End If Set Fso = Nothing End Function

  推荐阅读

  ASP使用FSO读取模板的代码

m_Root是文件名,可以使用相对路径。 调用调用示例: Response.Write(LoadFile("Test.htm")) Function LoadFile(m_Root) Dim Filename,fso,hndFile Filename = m_Root If Right(Filename, 1)<>"/" And Right(Fil>>>详细阅读


本文标题:asp中创建多级目录的两段代码

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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)