一个可以自动创建多级目录的函数
自动 函数 一个 创建 目录 可以 多级
2023-06-13 09:13:52 时间
<%
"创建多级目录,可以创建不存在的根目录
"参数:要创建的目录名称,可以是多级
"返回逻辑值,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功能)
"创建多级目录,可以创建不存在的根目录
"参数:要创建的目录名称,可以是多级
"返回逻辑值,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功能)
相关文章
- Generator函数自动执行器
- 【趣味实践】自动补帧算法——RIFE的使用
- jquery定时执行函数_jquery自动提交
- 利用Python实现视频号自动赚钱一条龙
- 利用MySQL触发器及函数实现数据库自动处理(mysql触发器函数)
- 处理Redis中Java操作自动处理过期数据(redisjava过期)
- 「CES2015」德尔福自动驾驶技术初体验
- Oracle监听器自动启动设置指南(oracle监听自动启动)
- MySQL查询自动生成唯一列值(mysql查询自增列)
- 自动编号:MSSQL中让数字从1开始自增(mssql自动从1计数)
- jsdefineSetter-给js的"class"自动增加一个set的属性(方法)
- javascript实现的一个自定义长度的文本自动换行的函数。
- asp之自动闭合HTML/ubb标签函数附简单注释
- firefox事件处理之自动查找event的函数(用于onclick=foo())
- ASP读取日期单日期自动补零函数代码
- 让ASP程序自动运行的代码
- php懒人函数自动添加数据
- PHP__autoload函数(自动载入类文件)的使用方法
- 网页打开自动最大化的js代码
- php使HTML标签自动补全闭合函数代码
- 如何让页面在打开时自动刷新一次让图片全部显示
- 页面载入结束自动调用js函数示例
- 文本框文本自动补全效果示例分享