Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access示例】创建多级目录

时 间:2019-01-11 09:06:15
作 者:缪炜   ID:24010  城市:江阴
摘 要:创建多级目录
正 文:

      创建多级目录。

附   件:

点击下载此附件


示例演示:


主要代码:

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交流群 (群号:86789465)       access源码网店

最新评论 查看更多评论(0)

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助