QQ 电脑入门游戏操作系统图形处理办公软件媒体动画精文荟萃工具软件网络编程程序开发网络技术认证考试网站建设文章专栏

当前位置：清风网络 → 网络编程 → ASP → 在ASP中自动创建多级文件夹的函数(使用FSO)


	精品推荐


特别推荐


热点TOP10

·ASP基础学习：access+asp 练习一

·技巧：ArrayList的使用方法

·使用ActiveX控件开发网页常见的问题

在ASP中自动创建多级文件夹的函数(使用FSO)

日期：2007年7月8日作者：查看:[大字体中字体小字体]

    FSO中有个方法是CreateFolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便.

  函数:

  ' --------------------------------
  ' 自动创建指定的多级文件夹
  ' strPath为绝对路径
  ' 引用请保留版权
  ' by im286_Anjer
  ' 2005-4-3
  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\"
  If AutoCreateFolder(MyPath) Then
   Response.Write "创建文件夹成功"
  Else
   Response.Write "创建文件夹失败"
  End If

上一篇:在ASP与ASP.NET之间共享对话状态

下一篇:Oracle大文本在ASP中存取问题的解决

·Excel97使用技巧42招

·Outlook Express使用技巧大全之提高篇

·Photoshop画笔工具基本使用

·使用 Abbot 框架自动化测试 Eclipse 插件的用户界面 1

·使用TenyQQ 快速升级为太阳用户

·教您如何使用无线上网全攻略

·为什么iexplore.exe在打开网页时CPU使用会100%？

相关软件：

·黑客视频教程 VMware虚拟机的安装和使用

·文件夹嗅探器 FolderSniffer V3.51

·超级自动注册申请王 V3.0

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot