Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 531
Nombre de snippets : 1644
Connexion

Boite de dialogue pour choisir un Répertoire

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 08/12/2007 14:15:06 et initié par us_30 [Liste]
Date de mise à jour : 26/12/2007 14:07:58
Vue : 7625
Catégorie(s) : Fichier / Disque
Langages dispo pour ce code :
- VBA
- VB6, VBA
- VB 2005, VB.NET 1.x
- Javascript
- VB 2005
- VB6, VBA
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 08/12/2007
Posté par us_30 [Liste]
DateMAJ : 13/12/2007 
'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(hWnd As Long, Optional Title As String = "Rechercher...", _
    Optional ConfigBox As ctConfigBrowse =  ButtonCreateOKCancelTextBox, _
    Optional ByVal ConfigDir As ctConfigDir = DirPosteDeTravail)  As String
    
'    CHOIX  REPERTOIRE
    Dim Shell As Variant, Folder As Variant
    Set Shell = CreateObject("Shell.Application")
    
    On Error Resume Next
    Set Folder = Shell.BrowseForFolder(hWnd, Title, ConfigBox,  CInt(ConfigDir))
    BrowseAndCreate = Folder.items.Item.Path
    
    If LenB(BrowseAndCreate) = 0 Then
        BrowseAndCreate = vbNullString
    ElseIf LeftB$(BrowseAndCreate, 4) = "::" Then
        BrowseAndCreate = vbNullString
    Else
        If Not (RightB$(BrowseAndCreate, 2) = "\") Then BrowseAndCreate = BrowseAndCreate & "\"
    End If
    
    Set Folder = Nothing
    Set Shell = Nothing
End Function
Remarque :
VBA :
MsgBox BrowseAndCreate(0&) ' ou le hwnd d'une picturebox ou autre

VB6 :
MsgBox BrowseAndCreate(Me.hWnd)

Snippets en rapport avec : Répertoire, Directory, Boite, Choisir, Filedialog

11/05/2008 - Vérifier la validé et l'existance d'un chemin de dossier, local ou distant

31/03/2008 - Compteur de fichiers dans un répertoire

08/12/2007 - Boite de dialogue pour choisir un Fichier

15/11/2007 - Choisir l'imprimante (sans boîte de dialogue)

04/11/2007 - ActiveDirectory - Tester l'existence d'un User

27/09/2007 - ActiveDirectory - Authentifier un utilisateur du domaine

27/09/2007 - ActiveDirectory - Obtenir le(s) groupe(s) auquel(s) un utilisateur appartient

12/08/2007 - Choisir un élément au hasard parmi plusieurs

23/01/2007 - Génération récursive d'une arborescence de répertoires

01/12/2006 - Récupérer le chemin du fichier



Codes sources en rapport avec : Répertoire, Directory, Boite, Choisir, Filedialog

{Visual Basic, VB6, VB.NET, VB 2005} MODIFICATIONS NOM DE FICHIERS DANS UN MÊME RÉPERTOIRE
C'est un tout petit code tout simple mais qui est pratique si on veut modifier rapidement les noms d...

{C# / C#.NET} LOGICIEL DE RECHERCHE OU REMPLACEMENT DANS UN RÉPERTOIRE ET SES SOUS RÉPERTOIRES
Ce logiciel a été développé sous Microsoft Visual Studio 2005. Le logiciel permet le traitement d...

{C# / C#.NET} CONTRÔLES D'ACCÈS À L'ARBORESCENCE DES RÉPERTOIRES
Cette dll contient 3 controles d'accès aux répertoires : 1. TreeFolder : est dérivé de TreeView....

{C# / C#.NET} DIRECTORY BROWSER
Ce petit programme permet d'utiliser l'API Windows : SHBrowseForFolder afin de récupérer un répertoi...

{C# / C#.NET} BOITE DE DIALOGUE AFFICHANT LES LECTEURS ET LEURS RÉPERTOIRES (SHELL TREEVIEW)
Dialogue box représentant les lecteurs et leurs répertoires dans une treeview, il sert à séléctionn...

{Visual Basic, VB6, VB.NET, VB 2005} ENPLACEMENT DU RÉPERTOIRE SYSTEM
Ce code vient pas de moi il vient de Reseach Center ...

{Visual Basic, VB6, VB.NET, VB 2005} RÉPERTOIRES DE WINDOWS
...

{Visual Basic, VB6, VB.NET, VB 2005} TROUVER LE RÉPERTOIRE TEMPORAIRE WINDOWS
jolauje@aol.com ...

{Javascript / DHTML} BOITE DE DIALOGUE (AVEC GRISEMENT DE LA PAGE)
Boite de dialogue qui ressemble a celle de codes sources (la boite de connection) sauf le design qui...

{Javascript / DHTML} DOM PARCOURIR LES RÉPERTOIRES ET FICHIERS EN LOCAL (EXCLUSIF : IE)
Ce sript n'a pas de fonction particulière, à la base il s'agit d'un projet personnel dont l'objectif...