繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp代码--fso创建文件夹
- ASP
- JS复制特定内容到粘贴板
- ASP+Access数据库安全设置方法小结
- ADSI+ASP添加IP到IIS禁止访问列表中
- ASP Google的translate API代码
- 最小asp后门程序
- asp xml 缓存类
- asp 过滤尖括号内所有内容的正则代码
- ASP去掉字符串头尾连续回车和空格的Function
- ASP IE地址栏参数的判断
- SQL 注入式攻击的终极防范
- ASP也使用ORM,给ASP上所有的SQL注入画上句号
- 判断Session的过期时间 采用JavaScript实时显示剩余多少秒
- asp 动态生成rss(不成生xml文件)代码
- ASP XML制作菜单管理程序
- asp之自动闭合HTML/ubb标签函数附简单注释
- asp 读取文件和保存文件函数代码
- asp 随机字符串函数
- asp form 表单验证函数
- ASP 循环导入导出数据处理 不使用缓存
- asp 数据库连接函数代码
ASP 中的 asp代码--fso创建文件夹
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 246 ::
收藏到网摘: 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/2005/3/26/") &"<br>"
Response.Write CraeteMultiFolder("upload2005326")
'函数的返回值为True(成功)或False(失败，可以是主机不支持FSO功能)
评论 (0) All
