Discussion :

[SfJ5Rpw8]

Suite à une discussion : Problème avec listview

pour "dépatouiller" Svenna je me suis interessé au code du projet servant d'exemple au tutorial http://silkyroad.developpez.com/VBA/ListView/..

et j'y ai découvert la méthode BrowseForFolder de l'objet shell.Application ( !! ne pas confondre avec l'objet shell de Wshell..!) et cela donne :

Q : Comment utiliser la boîte de dialogue de sélection d'un répertoire :
R : Avec la méthode BrowseForFolder de l'objet Shell.Application :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&,"c:\Tmp")
MsgBox oFolder.ParentFolder.ParseName(oFolder.Title).Path

[ThierryAIM]

un tout petit défaut, ca ne renvoie pas Mes document ou le root disque (c:\), si on ne spécifie pas de repertoire de départ :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error Resume Next
' >>   MsgBox oFolder.ParentFolder.ParseName(oFolder.Title).Path
    Set oFolderItem = oFolder.Items.Item  
    MsgBox oFolderItem.Path

[SfJ5Rpw8]

Bonjour, Thierry... j'ai pas tous compris sur ton problème de rootDisq...?
pour

une petite recherche
http://www.microsoft.com/technet/scr....mspx?mfr=true
m'as permis de trouver la méthode self qui permet d'extraire le "FolderItems" de l'objet sélectionné... cela donne

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&,"c:\")
If oFolder is Nothing Then 
	MsgBox "Abandon opérateur",vbCritical
Else
  Set oFolderItem = oFolder.Self
  MsgBox oFolderItem.path
End If

[ThierryAIM]

Bonjour, Thierry... j'ai pas tous compris sur ton problème de rootDisq...?

Avec ta 1ere fonction, enlève le repertoire par défaut et essaye de sélectionner le root "C:\" ou "Mes documents"

Sinon, ta 2e fonction marche bien aussi

[SilkyRoad]

bonjour à vous deux ... ;o)

un tout petit défaut, ca ne renvoie pas Mes document ou le root disque (c:\), si on ne spécifie pas de repertoire de départ :

j'ai enfin trouvé un peu de temps pour mettre à jour le classeur démo, suite au remarques de Thierry.

http://silkyroad.developpez.com/VBA/ListView/


merci pour ces infos ... ;o)


bonne journée
michel