如何在VB 中直接打开并选择目录,而不使用麻烦的多个控件?
发布时间:2020-12-16 23:12:12 所属栏目:大数据 来源:网络整理
导读:之前使用过一种方法,很简单,在VB6 或 VBA 中均可使用,代码如下: * 但有一个前提条件,因使用到 Shell32.DLL ,故必须先引用 "Microsoft Shell Controls And Automation" 才可以正常使用。 Dim objShell As New Shell32.Shell Dim oFd As Shell32.Folder2
之前使用过一种方法,很简单,在VB6 或 VBA 中均可使用,代码如下: * 但有一个前提条件,因使用到 Shell32.DLL ,故必须先引用 "Microsoft Shell Controls And Automation" 才可以正常使用。 Dim objShell As New Shell32.Shell Set oFd = objShell.BrowseForFolder(Me.Hwnd,"Please choice the folder include target excel files.",16 + 64) If Not oFd Is Nothing Then txtFolder.Text = IIf(Right(oFd.Self.Path,1) = "/",oFd.Self.Path,oFd.Self.Path & "/") Else Exit Sub End If (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- golang channel缓冲区阻塞
- 543.Diameter of Binary Tree
- delphi – 如何从后代组件中删除属性
- golang 操作mongodb 示例
- java.lang.IllegalStateException:Autowired annotation需
- 2017 United Kingdom and Ireland Programming Contest - A
- delphi – 如何使用TADODataset创建和使用聚合字段?
- groovy – 静态方法中的非静态变量“this”
- Delphi&DLL简单应用
- vb.net – Google OAuth令牌错误 – 400错误请求