J'ai le code suivant pour aller chercher un répertoire précis...
mais je désire que la fonction retourne le répertoire ET le fichier
sélectionné...
j'ai essayée les paramètre BrowseForfile et BIF_BROWSEINCLUDEFILES
Merci!
Public Function GetDirectory(szTitle As String, CallingForm As Form) As
String
Dim lpIDList As Long
Dim sBuffer As String
Dim tBrowseInfo As BrowseInfo
With tBrowseInfo
.hWndOwner = CallingForm.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
GetDirectory = sBuffer
End If
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
Tu trouveras les fonctions suivantes sur mon site:
Toutes versions: chercher un fichier : http://access.seneque.free.fr/ouverture_document.htm chercher un répertoire: http://access.seneque.free.fr/selectionner_dossier.htm
version 2002 et 2003: http://access.seneque.free.fr/dialogue_2002.htm -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Melo" a écrit dans le message de news:ezvI%
Bonjour,
J'ai le code suivant pour aller chercher un répertoire précis... mais je désire que la fonction retourne le répertoire ET le fichier sélectionné... j'ai essayée les paramètre BrowseForfile et BIF_BROWSEINCLUDEFILES
Merci!
Public Function GetDirectory(szTitle As String, CallingForm As Form) As String Dim lpIDList As Long Dim sBuffer As String Dim tBrowseInfo As BrowseInfo
With tBrowseInfo .hWndOwner = CallingForm.hwnd .lpszTitle = lstrcat(szTitle, "") .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then sBuffer = Space(MAX_PATH) SHGetPathFromIDList lpIDList, sBuffer sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) GetDirectory = sBuffer End If End Function
Bonjour.
Tu trouveras les fonctions suivantes sur mon site:
Toutes versions:
chercher un fichier : http://access.seneque.free.fr/ouverture_document.htm
chercher un répertoire:
http://access.seneque.free.fr/selectionner_dossier.htm
version 2002 et 2003:
http://access.seneque.free.fr/dialogue_2002.htm
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Melo" <melo@usa.net> a écrit dans le message de
news:ezvI%23IQjDHA.2404@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai le code suivant pour aller chercher un répertoire précis...
mais je désire que la fonction retourne le répertoire ET le fichier
sélectionné...
j'ai essayée les paramètre BrowseForfile et BIF_BROWSEINCLUDEFILES
Merci!
Public Function GetDirectory(szTitle As String, CallingForm As Form) As
String
Dim lpIDList As Long
Dim sBuffer As String
Dim tBrowseInfo As BrowseInfo
With tBrowseInfo
.hWndOwner = CallingForm.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
GetDirectory = sBuffer
End If
End Function
Tu trouveras les fonctions suivantes sur mon site:
Toutes versions: chercher un fichier : http://access.seneque.free.fr/ouverture_document.htm chercher un répertoire: http://access.seneque.free.fr/selectionner_dossier.htm
version 2002 et 2003: http://access.seneque.free.fr/dialogue_2002.htm -- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Melo" a écrit dans le message de news:ezvI%
Bonjour,
J'ai le code suivant pour aller chercher un répertoire précis... mais je désire que la fonction retourne le répertoire ET le fichier sélectionné... j'ai essayée les paramètre BrowseForfile et BIF_BROWSEINCLUDEFILES
Merci!
Public Function GetDirectory(szTitle As String, CallingForm As Form) As String Dim lpIDList As Long Dim sBuffer As String Dim tBrowseInfo As BrowseInfo
With tBrowseInfo .hWndOwner = CallingForm.hwnd .lpszTitle = lstrcat(szTitle, "") .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then sBuffer = Space(MAX_PATH) SHGetPathFromIDList lpIDList, sBuffer sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) GetDirectory = sBuffer End If End Function
