繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 关于创建多级文件夹的ASP函数实例
- ASP
- ASP系列讲座（十）ASP 内建对象
- ASP系列讲座（十一）ActiveX 组件
- ASP系列讲座（十二）向浏览器发送内容
- ASP系列讲座（十三）向浏览器传送脚本
- ASP系列讲座（十四）包含文件
- ASP系列讲座（十五）使用 HTML 表格
- ASP系列讲座（十六）访问数据库
- ASP系列讲座（十七）调试 ASP 脚本
- ASP系列讲座（十八）管理应用程序
- ASP系列讲座（十九）管理会话
- ASP系列讲座（二十）维护 ASP 应用程序的安全
- ASP系列讲座（二十一）创建事务性脚本
- ASP系列讲座（二十二）使用国际站点
- ASP系列讲座（二十三）编写跨平台应用程序
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （二）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （三）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
- 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （六）
关于创建多级文件夹的ASP函数实例
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-28 浏览: 187 ::
收藏到网摘: n/a
FileSystemObject中有个方法创建文件夹的方法CreateFolder，但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹，所以我就写了一个自动创建多级文件夹的函数，在生成静态页面等方面使用非常方便。函数如下：
| 以下为引用的内容： '-------------------------------- '自动创建指定的多级文件夹 'strPath为绝对路径 Function AutoCreateFolder(strPath) 'As Boolean On Error Resume Next Dim astrPath, ulngPath, i, strTmpPath Dim objFSO If InStr(strPath, "\") <=0 or InStr(strPath, ":") <= 0 Then AutoCreateFolder = False Exit Function End If Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strPath) Then AutoCreateFolder = True Exit Function End If astrPath = Split(strPath, "\") ulngPath = UBound(astrPath) strTmpPath = "" For i = 0 To ulngPath strTmpPath = strTmpPath & astrPath(i) & "\" If Not objFSO.FolderExists(strTmpPath) Then '创建 objFSO.CreateFolder(strTmpPath) End If Next Set objFSO = Nothing If Err = 0 Then AutoCreateFolder = True Else AutoCreateFolder = False End If End Function |
'调用方法:
| 以下为引用的内容： MyPath = Server.MapPath("a/b/c") |
评论 (0) All
