瀏覽文件夾對話框

使用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
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

推薦閱讀更多精彩內(nèi)容

  • Spring Cloud為開發(fā)人員提供了快速構(gòu)建分布式系統(tǒng)中一些常見模式的工具（例如配置管理，服務(wù)發(fā)現(xiàn)，斷路器，智...
    卡卡羅2017閱讀 134,981評論 19贊 139
  • Spring Boot 參考指南 介紹 轉(zhuǎn)載自:https://www.gitbook.com/book/qbgb...
    毛宇鵬閱讀 46,970評論 6贊 342
  • Ubuntu的發(fā)音 Ubuntu，源于非洲祖魯人和科薩人的語言，發(fā)作 oo-boon-too 的音。了解發(fā)音是有意...
    螢火蟲de夢閱讀 99,587評論 9贊 467
  • Android 自定義View的各種姿勢1 Activity的顯示之ViewRootImpl詳解 Activity...
    passiontim閱讀 173,466評論 25贊 708
  • 時(shí)下最火的探險(xiǎn)小說家徐讓的新作《孤島》出版。故事講述了一群青年人為尋找傳說中的明石闖入一座孤島，在孤島上發(fā)現(xiàn)一座地...
    過客止閱讀 513評論 0贊 0