SELECTION DE DOSSIER AVEC BOUTON "NOUVEAU DOSSIER"

Commentaire de olid le 26/10/2003 21:39:28

Arf... javais mal compris (ou ya un bug)...

Jai cru que ce source affichait le selecteur de dossier avec dessus un bouton pour créer un dossier pendant la selection :o(

Bah... au moins, ce source aidera des debutants :op

Sinon, pour faire ce que je viens dire, faudrait pô faire une fonction callback, non ? Si oui, merci à qui pourra donner un exemple ;o)

Commentaire de olid le 26/10/2003 22:02:31

Bin perdu :o((

Jai windows 98SE ...je crois que le probleme vient du fait quil faudrait avoir Windows Scripting 5.6 qui est installé que sur 2000, Millenium, etc. 98 SE a seulement le 5.1, et 95 ou NT4 ne l'ont pô du tout.

Jai eu ce meme genre de pb pour créer des raccourcis ou favoris en VBS ;o(

A noter que cest le wshom.ocx et ses dépendances quil faut installer ;o|

Commentaire de ASSKICK le 26/11/2003 15:43:51

salut!
pour la première possibilité, que dois-je faire pour ne pas utiliser de type Variant?

Commentaire de ASSKICK le 27/11/2003 12:56:12

pour le dossier c'est bon, c'est la variable shell qui coince.

Commentaire de ASSKICK le 27/11/2003 14:02:46

OK c'est tout bon :) fallait mettre la référence "Microsoft Shell Controls And Automation" (shell32.dll)

le code un poil modifié donne ceci:

Option Explicit
Dim ShellObject As Shell
Dim SelectedFolder As Shell32.Folder
Dim FolderPath As String

Private Sub Form_Load()
    BrowseAndCreate
    MsgBox ("Dossier sélectionné: " & FolderPath)
    End
End Sub

Public Function BrowseAndCreate()
    Set ShellObject = New Shell
    Set SelectedFolder = ShellObject.BrowseForFolder(hWnd, "Veuillez selectionner votre Dossier. ", 0, 17)
    If (Not SelectedFolder Is Nothing) Then
        FolderPath = SelectedFolder.Items.Item.Path
    Else
        FolderPath = "Aucun dossier sélectionné"
    End If
    Set ShellObject = Nothing
    Set SelectedFolder = Nothing
End Function


merci beaucoup pour l'aide :)

Commentaire de mythic_kruger le 13/02/2005 11:10:12

J' ai mis 10, du coup ça fait 7.

Commentaire de soldier8514 le 30/01/2006 23:29:28

oh pinaise ! c pile poil ce ke je cherchais ! merci

Commentaire de us_30 le 05/12/2007 23:31:19

Bonsoir,

La fonction "BrowseAndCreate" est élégeante, mais il est dommage qu'on ne puisse pas l'utiliser aussi pour la sélection d'un fichier... La solution proposée par ASSKICK étant fausse pour les fichiers...

Je n'arrive pas à faire marcher la version alternative (?) "BrowseForFolder", bien sur, cela bloque sur Dim BI As ... puisqu'on a rien qui défini tout cela...

J'ai tenté d'étudier cette fonction (BrowseAndCreate), et je vois quelques améliorations possibles.

Déjà, il faut mettre un ON ERROR RESUME NEXT, dans le code en cas d'action sur le bouton Annuler, pour un renvoi vide... au lieu d'un bug ! c'est mieux... Ensuite, en jouant sur les paramètres, la boite de sélection peut prendre plusieurs formes. Par exemple, avec une TextBox pour la sélection courante, ou même le titre peut changer... Sans avoir vraiment compris quelles sont les valeurs précises (plusieurs sont possibles), je propose une version complèté :

=

Public Enum vbConfigBrowse
    DirButtonCreateOKCancel = 0
    DirButtonCreateOKCancelTextBox = 16
    DirButtonCreateOKCancelInfo = 2500
    DirButtonOkCancelTextbox = 560
    DirButtonOkCancel = 550
    PrtButtonOkCancelTextbox = -1
End Enum

=

Public Function BrowseAndCreate(Title As String, Optional Config As vbConfigBrowse = 0) As String
    Dim Shell As Variant, Folder As Variant
    Set Shell = CreateObject("Shell.Application")
    On Error Resume Next
    Set Folder = Shell.BrowseForFolder(Hwnd, Title, Config, "")
    BrowseAndCreate = Folder.items.Item.Path
End Function

=

Sub essai()
    
    MsgBox BrowseAndCreate("Veuillez selectionner votre Dossier.", DirButtonCreateOKCancelTextBox)

End Sub

=

Maintenant, j'aimerais bien comprendre à fond cette fonction (ses paramètres), et j'aimerais savoir si on peut vraiment pas faire en sorte de choisir un fichier, ou est-ce irrémédiablement impossible ? Bizarrement, on peut choisir un fichier PDF, avec l'option -1 (printer)... peut-être parce j'ai une imprimante virtuelle pour la création des PDF ?...

J'ai vu que BruNews avait fait une DLL pour faire quel que chose de similaire, mais hélas, on ne peut pas (aussi) sélectionner un fichier, et globalement sa solution n'a pas encore l'élégeance de cette fonction, qui permet un menu contextuel, un bouton "Créer un dossier", etc.

Amicalement,
Us.