TreeView et CommonDialog

Question

Bonjour



Voila j&#146;ai un gros probl&#232;me impossible a r&#233;soudre.


Je voudrais si sais possible avec un CommonDialog de faire un multi select pour pouvoir ouvrir plusieurs fichiers en m&#234;me temp. Et les afficher dans un treeview.


Voil&#224; mon code pour l&#146;ouverture d&#146;un fichier et l&#146;affich&#233; dans un treeview.


 'Code


Private Sub Ajout_Click()


Dim oNode As Node


Dim tString() As String


Dim i As Integer


With Dialog1


.Filter = _


"Tous(*.*)|*.*"


.FilterIndex = 1


.ShowOpen


If Not Len(.FileName) = 0 Then


tString = Split(.FileName, "")


Set n = Tree.SelectedItem.Child


While Not n Is Nothing


If n.Text = tString(UBound(tString)) Then


Exit Sub


End If


Set n = n.Next


Wend


If (Tree.SelectedItem.Tag <> "") Then Set Tree.SelectedItem = Tree.SelectedItem.Parent


Set oNode = Tree.Nodes.Add(Tree.SelectedItem.Index, tvwChild, , tString(UBound(tString)), 0, 0)


oNode.Tag = .FileName


Tree.SelectedItem.Expanded = True


Tree.SetFocus


End If


End With


End Sub

Merci d'avance

econs · Answer

Pour l'ouverture de plusieurs fichiers : 



Dim tablo() As String

Dim l As Long



    With CommonDialog1

        .Flags = cdlOFNAllowMultiselect

        .InitDir = "C:"

        .Filter = "(*.*)|*.*"

        .ShowOpen

        tablo = Split(.FileName, " ", , vbTextCompare)

        For l = LBound(tablo) To UBound(tablo)

            MsgBox tablo(l)

        Next l

    End With






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Autre possibilit&#233;, en gardant l'aspect "explorateur" du commondialog :









Dim tablo() As String

Dim l As Long



    With CommonDialog1

        .Flags = &H200 Or &H80000

        .InitDir = "C:"

        .Filter = "(*.*)|*.*"

        .ShowOpen

        tablo = Split(.FileName, vbNullChar, , vbTextCompare)

        For l = LBound(tablo) To UBound(tablo)

            MsgBox tablo(l)

        Next l

    End With


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

marc660 · Answer

Bonjour


Merci pour vos repose
Voila je n&#146;arrive pas a int&#233;grer le r&#233;sultat dans un TreeView 
Avez vous une solution svp
Et merci d'avance

Dim tablo() As String
Dim l As Long
Dim oNode As Node
With CommonDialog1
.Flags = &H200 Or &H80000
.InitDir = "C:"
.Filter = "(*.*)|*.*"
.ShowOpen
tablo = Split(.FileName, vbNullChar, , vbTextCompare)
For l = LBound(tablo) To UBound(tablo)
Set oNode = DirTree.Nodes.Add(DirTree.SelectedItem.Index, tvwChild, , tablo(UBound(tablo)), 0, 0)
Next l
End With

econs · Answer

au lieu de :

Set oNode = DirTree.Nodes.Add(DirTree.SelectedItem.Index, tvwChild, , tablo(UBound(tablo)), 0, 0)

tapes :

Set oNode = DirTree.Nodes.Add(DirTree.SelectedItem.Index, tvwChild, , tablo(l), 0, 0)

c'est l'&#233;l&#233;ment d'indice l (la lettre l) que tu dois ins&#233;rer. L&#224;, tu ajoutais toujours le dernier &#233;l&#233;ment du tableau.




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

marc660 · Answer

Re 


 


D&#233;soler de vous d&#233;rangez mais &#231;a ne marche toujours pas j&#146;ai ma DirTree(treeview) vide.


Merci encore

TreeView et CommonDialog

5 réponses

Discussions similaires