zoukankan      html  css  js  c++  java
  • [VB]用API打开浏览文件夹对话框,选择文件夹

     1 Option Explicit
     2 
     3 Private Type BROWSEINFO
     4   hOwner As Long
     5   pidlRoot As Long
     6   pszDisplayName As String
     7   lpszTitle As String
     8   ulFlags As Long
     9   lpfn As Long
    10   lParam As Long
    11   iImage As Long
    12 End Type
    13 
    14 Private Const BIF_RETURNONLYFSDIRS = &H1 '浏览文件夹
    15 Private Const BIF_NEWDIALOGSTYLE = &H40 '新样式(有新建文件夹按钮,可调整对话框大小)
    16 Private Const BIF_NONEWFOLDERBUTTON = &H200 '新样式中,没有新建按钮(只调大小)
    17 
    18 Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _
    19   (ByVal pidl As Long, _
    20   ByVal pszPath As StringAs Long
    21 Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
    22   (lpBrowseInfo As BROWSEINFO) As Long
    23 
    24 Public Function GetFolderName(hWnd As Long, Text As StringAs String
    25   Dim bi As BROWSEINFO
    26   Dim pidl As Long
    27   Dim path As String
    28   With bi
    29     .hOwner = hWnd
    30     .pidlRoot = 0&  '根目录,一般不需要改
    31     .lpszTitle = Text
    32     .ulFlags = BIF_RETURNONLYFSDIRS '根据需要调整
    33   End With
    34   pidl = SHBrowseForFolder(bi)
    35   path = Space$(512)
    36   If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
    37     GetFolderName = Left(path, InStr(path, Chr(0)) - 1)
    38   End If
    39 End Function

     

  • 相关阅读:
    SQL的内连接与外连接
    for,foreach,iterator的用法和区别
    StringUtils中 isNotEmpty 和isNotBlank的区别
    Context解读
    常用的加密方式
    Android中前景,背景 和 Gravity的设置属性
    使用WebView时软键盘遮挡H5页面解决办法
    Git merge Dev 分支到 master
    C#高级编程笔记 Day 5, 2016年9月 13日 (泛型)
    C#高级编程笔记 Delegate 的粗浅理解 2016年9月 13日
  • 原文地址:https://www.cnblogs.com/xxaxx/p/1871323.html
Copyright © 2011-2022 走看看