【Access示例】创建多级目录-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access示例】创建多级目录

发表时间:2019/1/11 9:06:15 评论(0) 浏览(7430)  评论 | 加入收藏 | 复制
   
摘 要:创建多级目录
正 文:

      创建多级目录。

附   件:

点击下载此附件


示例演示:


主要代码:

Public Function createMultiLevelFolder(path As String) As Boolean
    On Error GoTo errHandler
    Dim index As Integer, tempPath As String
    createMultiLevelFolder = False
    If Len(Trim(path)) = 0 Then
        Exit Function
    End If
    index = InStr(1, path, "/")
    Do While index > 0
        tempPath = Left(path, index)    '这里index(“/”所在的位置)可视为要截取的字符长度
        If tempPath = "//" Then
            '对“//”后面的主机名或IP不处理
            index = InStr(index + 1, path, "/")
        Else
            If Dir(tempPath, vbDirectory) = "" Then
                MkDir tempPath
            End If
        End If
        index = InStr(index + 1, path, "/")    '返回下一个“/”的位置
    Loop
    createMultiLevelFolder = True
errHandler:
    If Err.Number Then
        MsgBox "创建多级目录(" & path & ")时出错:" & Err.Description, vbInformation, "错误"
        createMultiLevelFolder = False
        Resume Next
    End If
End Function 

Access软件网交流QQ群(群号:198465573)
 
 相关文章
选择目录的代码  【黄海  2004/11/19】
在全文索引建立的目录不存在情况下删除全文索引   【UMVsoft整理  2006/7/5】
获取Windows / System / Temp 目录路径  【UMVSOFT整理  2008/1/31】
利用API创建文件目录  【UMVSOFT整理  2008/5/19】
目录树控件  【yori2007  2009/8/28】
【access小品】植树造林--列表框树形目录实例  【todaynew  2010/3/1】
从一个包含路径的文件名中去除文件名,只保留路径(目录名)  【李志能  2018/11/16】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接