你的位置:HBcms宏博内容管理系统 建站经验 正文
内容搜索
热门内容
  1. 网站logo在线设计,免..
  2. 域名解析文件hosts文件..
  3. 教你如何做网线接头:..
  4. qq怎么截图?如何在qq..
  5. 雅虎yahoo邮箱smtp和p..
  6. 新注册126邮箱或163邮..
  7. 幻灯片式的网页图片滚..
  8. 做网站怎么赚钱?什么..
  9. com域名和cn域名net域..
  10. Google支付系统(Googl..
推荐内容
  1. 做一个商业网站要多少..
  2. 国外服务器租用(国外..
  3. 深圳做网站的公司!=深..
  4. 网络原创投稿,转载精..
  5. 美国服务器租赁Window..
  6. 699元的美国服务器出租..
  7. 添加友情链接,速度别..
  8. “原始人”卷款潜逃事..
  9. 设置Godaddy支持zend ..
  10. 网页设计中常用的CSS命..
ASP技巧:使用FSO自动创建多级文件夹的函数
  • 原作者:purefei 添加时间:2007-09-24 发表时间:2007-09-23 人气:31
  •     开启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\"
    If AutoCreateFolder(MyPath) Then
            Response.Write "创建文件夹成功"
    Else
            Response.Write "创建文件夹失败"
    End If

  • 点这里复制本页地址发送给您QQ/MSN上的好友
  • 相关文章
  • 相关评论
  • 本文章所属分类:首页 建站经验