'Clés pour  BrowseAndCreate
Public Enum ctConfigBrowse
    PrtButtonOkCancel = -273
    PrtButtonOkCancelInfo = -17
    PrtButtonOkCancelTextbox = -1
    ButtonCreateOKCancel = 0
    ButtonCreateOKCancelTextBox = 16
    ButtonCreateOKCancelInfo = 256
    ButtonOkCancel = 512
    ButtonOkCancelTextbox = 528
End Enum
'Clés pour BrowseAndCreate
Public Enum ctConfigDir
    DirExplorer = 1 'Interdit
    DirProgrammeUser
    DirPanneauDeConfiguration
    DirImprimantesEtTelecopieurs
    DirMesDocuments
    DirFavorisUser
    DirDemarrageUser
    DirDocumentsRecents
    DirSendTo
    DirCorbeille
    DirMenuDemarrer
    DirBureau
    DirMaMusique
    DirMesVideosUser
    DirPosteDeTravail = 17
    DirFavorisReseau
    DirVoisinReseau
    DirFonts
    DirModelesUser
    DirMenuDemarrerPrgramme
    DirProgrammeAllUser
    DirDemarrageAllUser
    DirApplicationDataUser = 26
    DirVoisinageImpression
    DirLocalSettingsApplicationData
    DirFavorisAllUser = 31
    DirTemporaryInternetFilesUser
    DirCookiesUser
    DirHistoriqueUser
    DirApplicationDataAllUser
    DirWindows
    DirWindowsSystem32
    DirProgramFiles
    DirMesImagesUser
    DirUser
    DirFichiersCommuns = 43
    DirModeleAllUser = 45
    DirDocumentsPartages
    DirOutilsAdministrationAllUser
    DirOutilsAdministrationUser
    DirConnexionReseau
    DirMaMusiqueAllUser = 53
    DirMesImagesAllUser
    DirMesVideosAllUser
    DirRessources
    DirResources040c
    DirCDBurning = 59
End Enum



    Function BrowseAndCreate(ByVal hWnd As System.IntPtr, Optional ByVal Title As String = "Rechercher...", _
        Optional ByVal ConfigBox As ctConfigBrowse =  ctConfigBrowse.ButtonCreateOKCancelTextBox, _
        Optional ByVal ConfigDir As ctConfigDir =  ctConfigDir.DirPosteDeTravail) As  String
        Dim sResult As String = String.Empty
        '  CHOIX  REPERTOIRE
        Try
            Dim oShell As Object = CreateObject("Shell.Application")
            Dim oFolder As Object = oShell.BrowseForFolder(hWnd, Title, ConfigBox, CInt(ConfigDir))
            sResult = oFolder.items.Item.Path
            ' TEST LE RéSULTAT
            If sResult.Length = 0 OrElse sResult.Substring(0, 2) = "::" Then
                Return String.Empty
            Else
                Return sResult & IIf(sResult.Substring(sResult.Length -  1, 1) = "\", String.Empty, "\")
            End If
            oFolder = Nothing
            oShell = Nothing
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function

function RepertoireChoix() 
{ var Shl = new ActiveXObject("Shell.Application");
  return( Shl.BrowseForFolder(0, 
               "Choix d'un Répertoire", 
               0).Items().Item().Path);
}

    Function BrowseAndCreate() As String 
        Dim myDialog As System.Windows.Forms.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog() 
        myDialog.ShowNewFolderButton = True 
        myDialog.Description = "Choisir un chemin" 
        myDialog.RootFolder = Environment.SpecialFolder.DesktopDirectory 
        If myDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then Return myDialog.SelectedPath
    End Function


        
        
    

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
Private Const BIF_RETURNONLYFSDIRS As Long  = 1&
Private Const MAX_LENGTH  As Long = 512&
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Function BrowseDirectory(Optional ByVal lHandle As Long = 0, Optional  ByVal sTitle As String  = vbNullString) As  String
'   crée à partir de  l'API-GUID
    Dim tBI As BrowseInfo, lRet As Long, sBuffer As  String
    With tBI
        .hWndOwner = lHandle
        .lpszTitle = lstrcat(sTitle, vbNullChar)
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    lRet = SHBrowseForFolder(tBI)
    If lRet Then
        sBuffer = String$(MAX_LENGTH, vbNullChar)
        Call SHGetPathFromIDList(lRet, sBuffer)
        Call CoTaskMemFree(lRet)
        sBuffer = LeftB$(sBuffer, InStrB(sBuffer, vbNullChar))
        BrowseDirectory = sBuffer
    End If
End Function