COMMONDIALOG POUR SÉLECTIONNER UN RÉPERTOIRE ( OCX )

Commentaire de ScSami le 09/01/2006 18:37:20

Je l'ai pas encore testé mais faut bien le dire... fallait le faire!
Merci.

Commentaire de bouv le 09/01/2006 20:07:59

Je connaissais déjà cette API. Mais c'est toujours bon a rappeler.

Cependant, je pense que l'utilisation d'un controle utilisateur n'a pas d'interet ici (le module se suffit en lui même).
Tu met la fonction GetFolder  (en public) dans le module et toutes les autres en privées...
Cela évite de se trimbaler une OCX de plus (ou controle utilisateur).

Bonne prog
++

Commentaire de nico1610 le 09/01/2006 22:25:09

Tiens viens ici pour voir ce que tu pouvait ajouter au moins pour faire un OCX!!

http://www.vbfrance.com/code.aspx?ID=35485

Commentaire de nico1610 le 10/01/2006 07:46:31

l'OCX que je parle ici (http://www.vbfrance.com/code.aspx?ID=35485) c'est le tiens corsica que j'ai reprit et fait une gestion des erreurs des plus simples, nom du selecteur de dossier personalisable.
Tous ca sans commentaire !! Oups !!
Je vais la modifié pour y mettre des commentaire !!

Commentaire de corsica le 10/01/2006 10:16:19

Merci pour vos remarques , j'en prends bonne note , je bosse sur la version améliorée :-)
Renfield , ta fonction BrowseAndCreate marche à merveille mais ne permet pas de choisir un répertoire de démarrage. On pourra tout au plus spécifier un rootFolder différent de Desktop et ainsi restreindre le parcour de l'arborescence de fichiers.
Mais effectivement c'est quand même diablement plus court que ce que je propose !

Commentaire de ScSami le 10/01/2006 12:33:38

(Nota Renfield que c'est plutôt Bouv qui disait ça ;-)
Dit moi Renfield... pardonne moi cette question de "débutant" mais pourquoi tu déclare Folder en Variant plutôt qu'en Objet ??? Ne serait-ce pas mieux typé ainsi ?
Pi dit, c'est toi qui aurait du faire cette source puisque tu métrise tellement ces APIs !!! Franchement, si tu nous faisais un OCX ou une classe, je l'utiliserais les yeux fermés (et je ne crois pas être le seul!!!) !

Bru, bon, d'accord, mais c'est en utilisant ta DLL !!! J'ai donc une question qui me brule les lèvres : pourquoi as-tu codé (1515 lignes en ASM si j'ai bien tout compris...) cette DLL puisqu'il existe des APIs ???
Défi personnel ou réel utilité (comblage d'un trou quelconque - lequel ?) ?

Commentaire de ScSami le 10/01/2006 15:03:27

merci pour ces quelques précision :D

Commentaire de Renfield le 10/01/2006 17:41:16 administrateur CS

Const BIF_NEWDIALOGSTYLE As Long = &H40

le Late Binding, en gros, c'est le fait de définir en cours d'execution le type d'objet que l'on manipule... (ca n'est pas fait à la compilation)...

Commentaire de ScSami le 10/01/2006 18:19:20

Oui, la MSDN parle de liaison tardive ou précoce - enfin, je crois que c'est ces termes...

Commentaire de facknrask le 21/12/2006 18:40:09

y a plus simple !!!!

Function ChoixDossierFichier(Racine, Optional SelType As Byte = 0)
Dim objShell, objFolder, chemin, SecuriteSlash, FlagChoix&, Msg$

            If SelType = 0 Then
            FlagChoix = &H1&: Msg = "Choisissez votre dossier :"
                        Else
            FlagChoix = &H4000&: Msg = "Choisissez votre fichier :"
            End If
            Set objShell = CreateObject("Shell.Application")
            'le troisième paramètre permet de choisir
            'la sélection d'un dossier ou d'un fichier (0 ou 1)
            'le dernier paramètre permet de choisir le dossier racine
            Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix, Racine)
            On Error Resume Next
            chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
          
If objFolder.Title = "Bureau" Then
            chemin = "C:\Windows\Bureau"
            End If
If objFolder.Title = "" Then
            chemin = ""
            End If
            SecuriteSlash = InStr(objFolder.Title, ":")
            If SecuriteSlash > 0 Then
            chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
            End If

ChoixDossierFichier = chemin
End Function

Public Sub testfolder()
aaa = ChoixDossierFichier("d:\")
End Sub