<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 使用API方法調用瀏覽文件夾對話框-楊雪
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> Access數據庫-模塊/函數/VBA


      使用API方法調用瀏覽文件夾對話框

      發表時間:2019/6/28 22:18:25 評論(33) 瀏覽(1263)  評論 | 加入收藏 | 復制
         
      摘 要:VBA 使用API方法調用瀏覽文件夾對話框。
      正 文:

      源碼:

      '【類型聲明】 Private Type BROWSEINFO hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type

      '【API聲明】 Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" _ Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long Private Declare Function lstrcat Lib "kernel32" _ Alias "lstrcatA" (ByVal lpString1 As String, _ ByVal lpString2 As String) As Long Private Declare Function OleInitialize Lib "ole32.dll" _ (lp As Any) As Long Private Declare Sub OleUninitialize Lib "ole32" () Private Const BIF_USENEWUI = &H40 Private Const MAX_PATH = 260

      '【自定義函數】 Public Function GetFolder_API(sTitle As String, Optional vFlags As Variant) As String Dim lpIDList As Long Dim sBuffer As String Dim BInfo As BROWSEINFO If IsMissing(vFlags) Then vFlags = BIF_USENEWUI Call OleInitialize(ByVal 0&) With BInfo .lpszTitle = lstrcat(sTitle, "") .ulFlags = vFlags End With lpIDList = SHBrowseForFolder(BInfo) If (lpIDList) Then sBuffer = Space(MAX_PATH) SHGetPathFromIDList lpIDList, sBuffer sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) If sBuffer <> "" Then GetFolder_API = sBuffer End If Call OleUninitialize End Function

      '【使用方法】 Sub Test() MsgBox GetFolder_API("選擇文件夾") End Sub


      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      用VBA判斷指定的excel文件夾或文件是否存在  【網絡  2017/8/24】
      從FTP下載文件并覆蓋到當前文件夾的main文件  【凝聽  2017/12/15】
      檢索指定目錄下的文件或文件夾  【布魯斯  2018/3/20】
      【Access示例】批量讀取OutLook里的附件并保存到指定文件...  【繆煒  2018/3/25】
      【Access示例】讀取某文件夾下的所有文件名  【繆煒  2018/9/7】
       
       訪客評論
      2019/7/13楊雪
      怎么看不見評論呢?

      總記錄:1篇  頁次:1/1 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      楊雪

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5