如何弹出一个选择文件夹路径的对话框选择路径?

原创 2007年09月12日 20:43:00

Private Declare Function SHBrowseForFolder _
        Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList _
        Lib "shell32.dll" _
        (ByVal pidl As Long, _
        pszPath As String) As Long

Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlage As Long
    lpfn As Long
    lparam As Long
    iImage As Long
End Type

Public Function ShowDir(MehWnd As Long, _
        DirPath As String, _
        Optional Title As String = "请选择文件夹:", _
        Optional flage As Long = &H1, _
        Optional DirID As Long) As Long
    Dim BI As BROWSEINFO
    Dim TempID As Long
    Dim TempStr As String
   
    TempStr = String$(255, Chr$(0))
    With BI
        .hOwner = MehWnd
        .pidlRoot = 0
        .lpszTitle = Title + Chr$(0)
        .ulFlage = flage
       
    End With
   
    TempID = SHBrowseForFolder(BI)
    DirID = TempID
   
    If SHGetPathFromIDList(ByVal TempID, ByVal TempStr) Then
        DirPath = Left$(TempStr, InStr(TempStr, Chr$(0)) - 1)
        ShowDir = -1
       
    Else
        ShowDir = 0
       
    End If
   
End Function


Private Sub Command1_Click()
ShowDir Me.hWnd, App.Path
End Sub
 

选择目录对话框和选择文件对话框——CFileDialog

网上相关文章很多,现简单整理如下 1、CFileDialog构造函数 1 CFileDialog:CFileDialog(BOOL     bOpenFileDi...
  • linrulei11
  • linrulei11
  • 2012年08月04日 22:46
  • 7157

如何弹出一个选择文件夹路径的对话框选择路径?

Private Declare Function SHBrowseForFolder _        Lib "shell32.dll" Alias "SHBrowseForFolderA" _  ...
  • lihaoing
  • lihaoing
  • 2007年09月12日 20:43
  • 2181

弹出对话框选择工作区中的文件

ElementTreeSelectionDialog dialog = new ElementTreeSelectionDialog(    shell,    new WorkbenchLabelP...
  • zhangweis
  • zhangweis
  • 2005年07月12日 09:04
  • 1187

弹出文件夹选择对话框

不多说了,直接贴出函数:
  • wwkaven
  • wwkaven
  • 2014年06月12日 20:32
  • 1055

MFC中弹出选择文件夹的对话框 BROWSEINFO 的用法

转载地址:弹出选择文件夹的对话框 BROWSEINFO 的用法【MFC】 | 学步园  http://www.xuebuyuan.com/1871860.htmlvoid CMFC_TrojanKil...
  • HW140701
  • HW140701
  • 2017年01月03日 10:44
  • 1450

[MFC]选择目录对话框和选择文件对话框

地址:http://www.cppblog.com/finehai/archive/2009/08/27/94578.html 在MFC编程中经常会需要用到选择目录和选择文件的界面,以下总结...
  • u012005313
  • u012005313
  • 2015年06月25日 17:57
  • 3056

选择目录对话框和选择文件对话框

原文:http://www.cppblog.com/finehai/archive/2009/08/27/94578.html 在MFC编程中经常会需要用到选择目录和选择文件的界面,以下总结一下本人...
  • eldn__
  • eldn__
  • 2014年12月30日 11:05
  • 834

利用Qt对话框选择文件打开路径

利用Qt对话框选择文件打开路径 在利用Qt开发软件时,有时需要由客户来旋转保存文件的路径,以增加灵活性。下面以保存一副图像为例,介绍如何利用Qt对话框选择文件保存路径。 利用的类是QFileDia...
  • lyc_daniel
  • lyc_daniel
  • 2013年06月25日 20:13
  • 14201

如何用VBA打开选择文件和选择路径的对话框

注意引用 microsoft office   10.0   (或以上) object   library         在文件对话框对中返回选择一个文件夹的路径.     Public  ...
  • gengv
  • gengv
  • 2009年07月07日 09:59
  • 13879

如何打开保存路径选择对话框

  有时我们的应用程序需要保存一些文件,并且要提供一个接口供用户来选择保存到哪,一般是用CFileDialog类来实现,但用这个类需要用户在保存前填上一个文件名,但是,有的时候我们已经知道文件名了,只...
  • gxulg
  • gxulg
  • 2005年02月01日 10:07
  • 5882
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何弹出一个选择文件夹路径的对话框选择路径?
举报原因:
原因补充:

(最多只允许输入30个字)