COMMONDIALOG POUR SÉLECTIONNER UN RÉPERTOIRE ( OCX )
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
-
9 janv. 2006 à 18:37
facknrask Messages postés 5 Date d'inscription vendredi 10 novembre 2006 Statut Membre Dernière intervention 7 mars 2007 - 21 déc. 2006 à 18:41
facknrask Messages postés 5 Date d'inscription vendredi 10 novembre 2006 Statut Membre Dernière intervention 7 mars 2007 - 21 déc. 2006 à 18:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35482-commondialog-pour-selectionner-un-repertoire-ocx
https://codes-sources.commentcamarche.net/source/35482-commondialog-pour-selectionner-un-repertoire-ocx
21 déc. 2006 à 18:41
21 déc. 2006 à 18:40
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
11 janv. 2006 à 00:46
10 janv. 2006 à 18:19
10 janv. 2006 à 18:13
10 janv. 2006 à 17:41
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)...
10 janv. 2006 à 17:31
1°-Quel valeur doit-on attribuer à BIF_NEWDIALOGSTYLE.
2°-Qu'est ce que le Late-Binding.
10 janv. 2006 à 15:03
10 janv. 2006 à 12:55
Cette fonction, etant déstinée à VBS, CreateObject est utilisé, et ces variables sont juste déclarées pour valider le 'Option Explicit'.
touché par cette considération pour mon travail
la Dll de BruNews apporte du tout en un, et facilite l'integration de telles fonctions, pour les utilisateurs de VB / VBA.... Les APIs, sont là, mais il faut bien souvent un brin de code autour, pour les 'wrapper' dans des fonction VB utilisables tel quel...
10 janv. 2006 à 12:33
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 ?) ?
10 janv. 2006 à 10:27
http://www.vbfrance.com/code.aspx?id=18494
Sub ChoisitDossier()
Dim strDir As String, sTitle As String
sTitle = "Dossier depuis Excel"
strDir = "D:\bosser"
If bnSelectDir(sTitle, strDir) Then Debug.Print strDir
End Sub
10 janv. 2006 à 10:16
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 !
10 janv. 2006 à 10:03
If uMsg = BFFM_INITIALIZED Then
SendMessage hwnd, BFFM_SETSELECTIONA, 1, ByVal BFFInitialPath
End If
suffit. Le test sur la longueur de BFFInitialPath a été reporté là :
If LenB(BFFInitialPath) > 0 Then
.lpfnCallback = GetAddress(AddressOf BrowseForFolderCallBackFunc)
End If
dans ShowBrowseForFolderDlg,
.lpszTitle = lstrcat(Msg, "")
est faux, regarde le libellé, au dessus de ton TreeView, la chaine ne comprend qu'un caractère...
il faudrait :
.lpszTitle = StrPtr(StrConv(Msg, vbFromUnicode))
de même, si l'on presse Annuler, le chemin est vide... ca devrait conserver le chemin originel.
je rejoins ScSami : un OCX est inutile ici
petit détail,
il vaut mieux favoriser :
sPath = Space$(MAX_PATH)
que
sPath = String$(MAX_PATH, 0)
en ajoutant le flag BIF_NEWDIALOGSTYLE dans BrowseInfo, tu pourra redimensionner la fenetre, et tu aura un bouton "nouveau dossier"
pour conclure, j'indique une simple alternative :
Public Function BrowseAndCreate(Title As String) As String
Dim Shell As Variant, Folder As Variant
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.BrowseForFolder(hWnd, Title, 0, "")
BrowseAndCreate = Folder.items.Item.Path
End Function
cette fonction est plutot destinée au VBS, mais fonctionne aussi sous VB, bien que je ne la préconise pas (en partie a cause du non typage des données, et du Late-Binding)
10 janv. 2006 à 07:46
Tous ca sans commentaire !! Oups !!
Je vais la modifié pour y mettre des commentaire !!
10 janv. 2006 à 03:06
OCX, module de class, module de code... wai, perso, je préfère les OCX s'ils sont bien codé (prise en charge des erreurs). Mais bon, chacun code comme il aime!
9 janv. 2006 à 22:25
http://www.vbfrance.com/code.aspx?ID=35485
9 janv. 2006 à 20:42
Comme dit Bouv il n'y a aucun interet de creer un Ocx si on peut le faire avec un module !!
Je met aucune note, mais bien sur l'API et la création d'un OCX
9 janv. 2006 à 20:07
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
++
9 janv. 2006 à 18:47
9 janv. 2006 à 18:37
Merci.