dcsimg
November 24, 2017
Hot Topics:

Display the Browse For Folder Dialog

  • August 20, 1999
  • By Gilles Roy
  • Send Email »
  • More Articles »

Author: Gilles ROY

Browse Folders Dialog

This code allows you to dispay the Browse Folders dialog with one simple function call. The function returns the name of the selected folder, or an empty string if cancel was pressed.

Screen Shot

Paste the below code straight into a BAS module, or download the BAS file from the below link.


'###############################################################################
'# $FICHIER : BrowseFolders.bas
'# $VERSION : v1.0
'#
'# HISTORI/UE DES MODIFICATIONS/
'#  v1.0   OD   14/05/1999  Création
'###############################################################################
option Explicit

'Constantes
private Const BIF_RETURNONLYFSDIRS = &H1        'Uniquement des répertoire
private Const BIF_DONTGOBELOWDOMAIN = &H2       'Domaine globale intredit
private Const BIF_STATUSTEXT = &H4              'Zone de saisie autorisée
private Const BIF_RETURNFSANCESTORS = &H8
private Const BIF_EDITBOX = &H10                'Zone de saisie autorisée
private Const BIF_VALIDATE = &H20               'insist on valid result (or CANCEL)
private Const BIF_BROWSEFORCOMPUTER = &H1000    'Uniquement des PCs.
private Const BIF_BROWSEFORPRINTER = &H2000     'Uniquement des imprimantes
private Const BIF_BROWSEINCLUDEFILES = &H4000   'Browsing for Everything

private Const MAX_PATH = 260

'Types
private Type T_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

'Fonctions API Windows
private Declare Function SHBrowseForFolder Lib "shell32" _
                                  (lpbi as T_BROWSEINFO) as Long

private Declare Function SHGetPathFromIDList Lib "shell32" _
                                  (byval pidList as Long, _
                                  byval lpBuffer as string) as Long

private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
                                  (byval lpString1 as string, byval _
                                  lpString2 as string) as Long

'****************************************************************************************************
'*  BrowseFolder :
'*  Entrées :   - HwndOwner     : Handle de la fenêtre appelante
'*              - Titre         : Titre
'*  Sorties :
'*              - string contenant le chemin complet ou Chaine vide (si annulation)
'*
'*  Affiche une boite de dialogue permettant la sélection d'un répertoire.
'*  Renvoie une chaine vide si l'opérateur annule.
'****************************************************************************************************
public Function BrowseFolder(byval HwndOwner as Long, byref Titre as string) as string

    Dim lpIDList as Long
    Dim sBuffer as string
    Dim BrowseInfo as T_BROWSEINFO

    'Initialise l'affichage
    BrowseFolder = ""
    With BrowseInfo
        .HwndOwner = HwndOwner
        .lpszTitle = lstrcat(Titre, "")
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With

    'Affiche la boite de dialogue
    lpIDList = SHBrowseForFolder(BrowseInfo)
    
    'Récupère le répertoire sélectionné
    If (lpIDList) then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseFolder = sBuffer
    End If
End Function




Download BrowseFolders.Bas

Posted On: 20-Aug-1999






Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 


Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.

Sitemap | Contact Us

Thanks for your registration, follow us on our social networks to keep up-to-date