• Home
 · 
• Files/File Controls/Input/Output
 · 
• Common Dialog Control Using For Directories

Common Dialog Control Using For Directories

Common Dialog Control Using For Directories

Rate Common Dialog Control Using For Directories

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : [email protected]
' * Date             : 24/09/98
' * Time             : 13:53
' * Module Name      : Dialogs_Module
' * Module Filename  : Dialogs.bas
' **********************************************************************
' * Comments         : Common Dialog Control Using For Directories
' *
' *
' **********************************************************************

'Type definition
Public Type SHITEMID    'Browse Dialog
   cb             As Long
   abID           As Byte
End Type

Public Type ITEMIDLIST  'Browse Dialog
   mkid           As SHITEMID
End Type

Public Type BROWSEINFO  'Browse Dialog
   hOwner         As Long
   pidlRoot       As Long
   pszDisplayName As String
   lpszTitle      As String
   ulFlags        As Long
   lpfn           As Long
   lParam         As Long
   iImage         As Long
End Type
Public Const BIF_RETURNONLYFSDIRS = &H1 'Browse Dialog
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

'PURPOSE:   Displays a dialog that allows the user to select a directory from a tree
'ARGUMENTS:
'   IN szPrompt:        Prompt to display
'RETURNS:   The path selected, or "" if cancel was selected
Public Function BrowseForFolder(szPrompt As String) As String
   Dim bi As BROWSEINFO
   Dim pidl As Long
   Dim nRet As Long
   Dim szPath As String
   
   szPath = Space$(512)
   
   'Fill struct
   bi.hOwner = 0&
   bi.pidlRoot = 0&
   bi.lpszTitle = szPrompt
   bi.ulFlags = BIF_RETURNONLYFSDIRS
   
   'Display the dialog and get the selected path
   pidl& = SHBrowseForFolder(bi)
   SHGetPathFromIDList ByVal pidl&, ByVal szPath
   
   'Return value
   BrowseForFolder = Trim$(szPath)
End Function

'You can also use those options In combination Or instead of BIF_RETURNONLYDIRS:
'BIF_BROWSEFORCOMPUTER  Only Return computers. If the user selects anything other than a computer, the OK button Is grayed.
'BIF_BROWSEFORPRINTER  Only Return printers. If the user selects anything other than a printer, the OK button Is grayed.
'BIF_BROWSEINCLUDEFILES  The browse dialog will display files As well As folders.
'BIF_DONTGOBELOWDOMAIN  Do Not include network folders below the domain level In the tree view control.
'BIF_EDITBOX  Version 4.71. The browse dialog includes an edit control In which the user can Type the Name of an Item.
'BIF_RETURNFSANCESTORS  Only Return file system ancestors. If the user selects anything other than a file system ancestor, the OK button Is grayed.
'BIF_RETURNONLYFSDIRS  Only Return file system directories. If the user selects folders that are Not part of the file system, the OK button Is grayed.
'BIF_STATUSTEXT  Include a status area In the dialog box. The callback Function can Set the status Text by sending messages To the dialog box.
'BIF_VALIDATE  Version 4.71. If the user types an invalid Name into the edit box, the browse dialog will Call the application's BrowseCallbackProc with the 'BFFM_VALIDATEFAILED message. This flag is ignored if BIF_EDITBOX is not specified.