Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
 -  Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
114 Abonnés
 
 

Fichier - Sélectionner répertoire

Description 

Ce code permet d'ouvrir une boîte de dialogue afin de sélectionner un répertoire.

Vous devez copier tout le code qui suit dans un module que vous pouvez appeler "modApiOpenDir".

 
Synthaxe 

Expression = GetDirectory (msg)

La synthaxe de la fonction GetDirectory comprend l'élément suivant :

ElémentsDescription

msg

Facultatif. Expression  de chaîne correspondant au message que l'on souhaite afficher dans la boîte de dialogue qui va s'ouvrir.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


'***************************Debut du code***************************

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
    Alias "SHGetPathFromIDListA" (ByVal pidl As Long, _
    ByVal pszPath As String) As Long

Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
    Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Public Type BROWSEINFO
    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

Function GetDirectory(Optional Msg) As String

Dim bInfo As BROWSEINFO
Dim path As String
Dim R As Long, X As Long, Pos As Integer

bInfo.pidlRoot = 0

If IsMissing(Msg) Then
     bInfo.lpszTitle = "Select a folder."
Else
     bInfo.lpszTitle = Msg
End If

bInfo.ulFlags = &H1

X = SHBrowseForFolder(bInfo)

path = Space$­­­(512)
R = SHGetPathFromIDList(ByVal X, ByVal path)

If R Then
    Pos = InStr(path, Chr$­­­(0))
     GetDirectory = Left(path, Pos - 1)
Else
     GetDirectory = ""
End If

End Function

'***************************Fin du code***************************

 


Date de création : 27/10/2006 @ 12:59
Dernière modification : 28/02/2007 @ 16:55
Catégorie : Fichier
Page lue 1133 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 2

Total visites : Total visites : 117980  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.09 seconde