如何在VB 中直接打开并选择目录,而不使用麻烦的多个控件?
2010-03-26 16:45
495 查看
之前使用过一种方法,很简单,在VB6 或 VBA 中均可使用,代码如下:
* 但有一个前提条件,因使用到 Shell32.DLL ,故必须先引用 "Microsoft Shell Controls And Automation" 才可以正常使用。
Dim objShell As New Shell32.Shell
Dim oFd As Shell32.Folder2
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
* 但有一个前提条件,因使用到 Shell32.DLL ,故必须先引用 "Microsoft Shell Controls And Automation" 才可以正常使用。
Dim objShell As New Shell32.Shell
Dim oFd As Shell32.Folder2
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
相关文章推荐
- 使用目录选择对话框时,如何让其弹出后自动打开指定目录
- 小技巧 - 如何在资源管理器中右键单击某个目录后有一个菜单可以打开命令提示符并直接cd到该目录
- VB6.0 在代码中直接调用 文件打开对话框,不使用windows控件
- mac 如何打开目录使用工具
- WdatePicker日期选择控件使用时,Internet Explorer无法打开站点,已终止操作”问题的解决
- 如何使用asp.net中的控件将一个图片文件从一个目录传到另外一个目录下?
- 如何使用 WebBrowser 控件在 Visual C# 2005 或 Visual C# .NET 中打开 Office 文档
- 如何在mac的finder加入使用shell打开当前目录的快捷图标?
- Android Studio的使用(十一)--每次打开时选择项目,而不是直接进入上次项目
- 在xml布局文件中,我们既可以设置px,也可以设置dp(或者dip)。一般情况下,我们都会选择使用dp,这样可以保证不同屏幕分辨率的机器上布局一致。但是在代码中,如何处理呢?很多控件的方法中都只提供了
- 帮助文档或使用说明Chm文档打开后,目录都在,内容为空白,如何解决?
- 关于jqui datepicker 使用enter选择日期后 点击input 没有打开日期控件问题
- 如何使用cmd打开磁盘目录和文件
- lwuit中如何直接使用高级ui控件?
- vb.net 控件使用外部字体自动选择
- 如何使用Dojo的DatePicker控件制作联动日期选择器
- vb 利用API 打开文件浏览窗口 选择返回目录
- 如何使用Dojo的DatePicker控件制作联动日期选择器
- 如何使用 WebBrowser 控件在 Visual C# 2005 或 Visual C# .NET 中打开 Office 文档
- Qt-编程模块 001: 浏览(选择)、打开 文件和文件夹(目录) --- 如何让按钮**记忆上次打开的文本路径**的功能