Création d'un bouton parcourir
Résolu
Tifris8
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
-
23 juin 2009 à 11:31
Tifris8 Messages postés 6 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 24 juin 2009 - 23 juin 2009 à 15:55
Tifris8 Messages postés 6 Date d'inscription lundi 22 juin 2009 Statut Membre Dernière intervention 24 juin 2009 - 23 juin 2009 à 15:55
A voir également:
- Création d'un bouton parcourir
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Extraction d'une partie d'une chaine dans une chaine - Forum Python
- Parcourir arraylist java ✓ - Forum Java
- Parcourir une liste java ✓ - Forum Java
- Chaine de caractère ✓ - Forum Python
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
23 juin 2009 à 14:00
23 juin 2009 à 14:00
Salut
CATIA est un progiciel supportant le VBA (et pas le VB.NET comme indiqué dans la catégorie de la question).
Ce que tu recherches, c'est la sélection d'un répertoire.
Même en VB6, il n'existe pas de composant permettant cette sélection.
Il faut avoir recours aux APIs du système.
Il te suffit de créer un Module dans ton projet et d'y inclure ces lignes :
Option Explicit
Private 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
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_DONTGOBELOWDOMAIN = &H2
Private Const BIF_STATUSTEXT = &H4
Private Const BIF_RETURNFSANCESTORS = &H8
Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const BIF_BROWSEFORPRINTER = &H2000
Private Const MAX_PATH = 260
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" _
(ByVal pv As Long)
Public Function BrosweForFolder(Title As String) As String
Dim bi As BROWSEINFO
Dim pidl As Long
Dim path As String
Dim pos As Integer
bi.hOwner = GetDesktopWindow()
bi.pidlRoot = 0&
bi.lpszTitle = Title
bi.ulFlags = BIF_RETURNONLYFSDIRS
pidl = SHBrowseForFolder(bi)
path = Space$(MAX_PATH)
If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
pos = InStr(path, Chr$(0))
path = Left(path, pos - 1)
If Right(path, 1) = "" Then
BrosweForFolder = Left(path, pos - 1)
Else
BrosweForFolder = Left(path, pos - 1) & ""
End If
End If
Call CoTaskMemFree(pidl)
End Function
Pour l'utiliser depuis ton bouton :
Dim sTemp As String
sTemp = BrosweForFolder("Le titre de la fenêtre")
If sTemp <> "" Then
monNouveauRépertoire = sTemp
End If
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
CATIA est un progiciel supportant le VBA (et pas le VB.NET comme indiqué dans la catégorie de la question).
Ce que tu recherches, c'est la sélection d'un répertoire.
Même en VB6, il n'existe pas de composant permettant cette sélection.
Il faut avoir recours aux APIs du système.
Il te suffit de créer un Module dans ton projet et d'y inclure ces lignes :
Option Explicit
Private 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
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_DONTGOBELOWDOMAIN = &H2
Private Const BIF_STATUSTEXT = &H4
Private Const BIF_RETURNFSANCESTORS = &H8
Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const BIF_BROWSEFORPRINTER = &H2000
Private Const MAX_PATH = 260
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
Alias "SHGetPathFromIDListA" _
(ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" _
(ByVal pv As Long)
Public Function BrosweForFolder(Title As String) As String
Dim bi As BROWSEINFO
Dim pidl As Long
Dim path As String
Dim pos As Integer
bi.hOwner = GetDesktopWindow()
bi.pidlRoot = 0&
bi.lpszTitle = Title
bi.ulFlags = BIF_RETURNONLYFSDIRS
pidl = SHBrowseForFolder(bi)
path = Space$(MAX_PATH)
If SHGetPathFromIDList(ByVal pidl, ByVal path) Then
pos = InStr(path, Chr$(0))
path = Left(path, pos - 1)
If Right(path, 1) = "" Then
BrosweForFolder = Left(path, pos - 1)
Else
BrosweForFolder = Left(path, pos - 1) & ""
End If
End If
Call CoTaskMemFree(pidl)
End Function
Pour l'utiliser depuis ton bouton :
Dim sTemp As String
sTemp = BrosweForFolder("Le titre de la fenêtre")
If sTemp <> "" Then
monNouveauRépertoire = sTemp
End If
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Tifris8
Messages postés
6
Date d'inscription
lundi 22 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009
23 juin 2009 à 15:55
23 juin 2009 à 15:55
Merci pour les précisions, et surtout pour le code (ça dépasse largement mes connaissances sur le sujet).