首页 / ASP / 一个可以自动创建多级目录的函数
一个可以自动创建多级目录的函数
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了一个可以自动创建多级目录的函数,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1547字,纯文字阅读大概需要3分钟。
内容图文
![一个可以自动创建多级目录的函数](/upload/InfoBanner/zyjiaocheng/385/4e8b4ca6d0844eedbaf6f122b192adbe.jpg)
'创建多级目录,可以创建不存在的根目录
'参数:要创建的目录名称,可以是多级
'返回逻辑值,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功能)
内容总结
以上是互联网集市为您收集整理的一个可以自动创建多级目录的函数全部内容,希望文章能够帮你解决一个可以自动创建多级目录的函数所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。