繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用FSO自动创建多级文件夹的函数
- ASP
- asp数个使用技巧
- 存储过程里的递归 实现方法
- 非常不错的列出sql服务器上所有数据库的asp代码
- 防范ASP木马的十大基本原则强列建议看下
- 雷客图ASP站长安全助手的ASP木马查找功能
- 防止别人盗链的好方法推荐
- 图片的入库与读取的方法
- 用asp实现无组件生成验证码的方法2种
- 用asp实现检测文件编码
- [asp]怎么添加验证码的解决方法
- ASP文章系统解决方案实现上一页下一页
- ASP编程入门进阶（三）：接触脚本程序
- ASP编程入门进阶（四）：内置对象Request
- ASP编程入门进阶（五）：内置对象Response
- ASP编程入门进阶（六）：Cookies讲座
- ASP编程入门进阶（八）：内置对象Session
- ASP编程入门进阶（九）：内置对象Application
- ASP编码优化技巧8则
- ASP编程入门进阶（十）：Global.asa文件
- ASP编程入门进阶（十一）：Chat聊天程序
ASP 中的 使用FSO自动创建多级文件夹的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 150 ::
收藏到网摘: n/a
开启FSO权限 在 开始－“运行”中执行regsvr32.exe scrrun.dll即可。如想关闭FSO权限，在上述命令中加/u参数。注册表中的键值位置：HKEY＿CLASS＿BOOT\F.S.O .FSO中有个方法是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 = "C:\a\b\c\" |
评论 (0) All
