OVH Cloud OVH Cloud

comdlg 32

1 réponse
Avatar
lou
bonjour
voila je me serts du comdlg 32 pour ajouter des fichiers a une liste et ça
fonctionne mais ce que je voudrais c'est de pouvoir ajouter un repertoire
entier comment faire voici le bout de code que j'ai merci de le corriger si
possible

SelectFileDialog.CancelError = True
On Error GoTo ErrHandler
SelectFileDialog.Flags = cdlOFNHideReadOnly
SelectFileDialog.FilterIndex = 2
SelectFileDialog.ShowOpen
Elenco.AddItem SelectFileDialog.FileName


lou

1 réponse

Avatar
François Picalausa
Bonjour/soir,

Jette un oeil à l'article suivant:
http://support.microsoft.com/default.aspx?scid=kb;fr-mt;179497

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lou" a écrit dans le message de
news:402f7f10$0$316$
bonjour
voila je me serts du comdlg 32 pour ajouter des fichiers a une liste
et ça fonctionne mais ce que je voudrais c'est de pouvoir ajouter
un repertoire entier comment faire voici le bout de code que j'ai
merci de le corriger si possible

SelectFileDialog.CancelError = True
On Error GoTo ErrHandler
SelectFileDialog.Flags = cdlOFNHideReadOnly
SelectFileDialog.FilterIndex = 2
SelectFileDialog.ShowOpen
Elenco.AddItem SelectFileDialog.FileName


lou