SELECTION DE DOSSIER AVEC BOUTON "NOUVEAU DOSSIER"
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
22 oct. 2003 à 07:03
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010 - 5 déc. 2008 à 16:54
cs_Sator Messages postés 351 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 6 octobre 2010 - 5 déc. 2008 à 16:54
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/17270-selection-de-dossier-avec-bouton-nouveau-dossier
https://codes-sources.commentcamarche.net/source/17270-selection-de-dossier-avec-bouton-nouveau-dossier
5 déc. 2008 à 16:54
Je pense ne rien avoir oublié...
@+ Sator
5 déc. 2007 à 23:43
Us.
5 déc. 2007 à 23:31
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.
12 févr. 2007 à 17:59
Cependant je n'arrive pas à le faire fonctionner.
Ca gueule sur le hWnd, j'ai une erreur de compilation : variable non définie.
une idée du pourquoi du comment ?
30 janv. 2006 à 23:29
14 févr. 2005 à 09:21
Pas de soucis pour moi, tu sais, tant que ca fonctionne et que c'est utile a d'autres...
13 févr. 2005 à 11:10
13 févr. 2005 à 10:59
27 nov. 2003 à 14:02
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 :)
27 nov. 2003 à 13:33
si je défini le dossier ("Folder" renomé en "test") en tant que Folder, il me fait un type incompatible une fois que j'ai sélectionné le dossier
27 nov. 2003 à 12:56
26 nov. 2003 à 16:12
Pour y avoir accès, tu dois lier la reference "Microsoft Scripting Runtime"
26 nov. 2003 à 15:43
pour la première possibilité, que dois-je faire pour ne pas utiliser de type Variant?
26 oct. 2003 à 22:11
le l'ai deja installé qd g t sous 98se avt.
26 oct. 2003 à 22:02
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|
26 oct. 2003 à 21:53
26 oct. 2003 à 21:39
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)
22 oct. 2003 à 07:03
en vbs c deja bcp moins long ! :)