繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp代码--fso创建文件夹
- ASP
- 在ASP程序中实现数据库事务控制
- 怎样开始一个ASP网站的设计
- ASP中使用ServerVariables集合详解
- 关于解决商务平台ASP程序的源代码泄漏设想与思考
- ASP通用模板类
- javascript利用xmlhttp获得服务器时钟的方法
- asp+oracle分页程序类（XDOWNPAGE2.0）
- ASP中实现小偷程序的原理和简单
- asp中vbscript访问xml文件
- ASP防SQL注入攻击程序
- 用ASP读INI配置文件的函数
- asp实现关键词获取(各搜索引擎,gb2312及utf-8)
- xmlhttp组件获取远程文件并筛选出目标数据
- XMLHTTP Get HTML页面时的中文乱码之完全客户端Script解决方案
- WEB打印设置解决方案一（通过修改注册表改变IE打印设置）
- WEB打印设置解决方案二（利用ScriptX.cab控件改变IE打印设置）
- WEB打印设置解决方案三（FileSystem组件实现WEB打印）
- WEB打印设置解决方案四（在ASP中实现网络打印功能）
- ASP实用技巧 强制刷新网页
- Access通用－自动替换数据库中的字符串
ASP 中的 asp代码--fso创建文件夹
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 145 ::
收藏到网摘: 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
