繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个可以自动创建多级目录的函数
- ASP
- 加密處理使密碼更安全
- 使用InstallShield制作ASP安装程序(1)
- 使用InstallShield制作ASP安装程序(2)
- 使用InstallShield制作ASP安装程序(3)
- 使用InstallShield制作ASP安装程序(4)
- 使用InstallShield制作ASP安装程序(5)
- 使用InstallShield制作ASP安装程序(6)
- 一个通用数据库显示程序
- 数据库远程控制的ASP实现
- 词语搭配游戏的制作（ASP）一
- 词语搭配游戏的制作（ASP）二
- 词语搭配游戏的制作（ASP）三
- 在ASP中使用Oracle数据库
- 在Web界面下如何生成像资源管理器一样的树形目录（版本2.0）
- 使用ASP建设私人搜索引擎
- 用EasyMailObject组件处理Exchange邮件源代码(1)
- 用EasyMailObject组件处理Exchange邮件源代码(2)
- 用EasyMailObject组件处理Exchange邮件源代码(3)
- 用EasyMailObject组件处理Exchange邮件源代码(4)
- 用EasyMailObject组件处理Exchange邮件源代码(5)
ASP 中的 一个可以自动创建多级目录的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 94 ::
收藏到网摘: n/a
<%
'创建多级目录，可以创建不存在的根目录
'参数：要创建的目录名称，可以是多级
'返回逻辑值，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功能)
评论 (0) All
