浏览文件夹对话框

使用Shell对象的的方式获取选择的文件夹路径

Private Sub cmdDir_Click()
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "选择文件夹", 0, 0)
    
    If Not objFolder Is Nothing Then
        txtDir.Text = objFolder.self.Path
    Else
        Exit Sub
    End If
    
    Set objFolder = Nothing
    Set objShell = Nothing
    
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容

  • Spring Cloud
    Spring Cloud为开发人员提供了快速构建分布式系统中一些常见模式的工具（例如配置管理，服务发现，断路器，智...
    卡卡罗2017阅读 135,010评论 19赞 139
  • Spring boot参考指南
    Spring Boot 参考指南 介绍 转载自:https://www.gitbook.com/book/qbgb...
    毛宇鹏阅读 46,974评论 6赞 342
  • Ubuntu完全教程，让你成为Ubuntu高手！
    Ubuntu的发音 Ubuntu，源于非洲祖鲁人和科萨人的语言，发作 oo-boon-too 的音。了解发音是有意...
    萤火虫de梦阅读 99,611评论 9赞 467
  • Android - 收藏集
    Android 自定义View的各种姿势1 Activity的显示之ViewRootImpl详解 Activity...
    passiontim阅读 173,663评论 25赞 708
  • 山图（一）
    时下最火的探险小说家徐让的新作《孤岛》出版。故事讲述了一群青年人为寻找传说中的明石闯入一座孤岛，在孤岛上发现一座地...
    过客止阅读 514评论 0赞 0