common dialog + ouvrir plusieurs fichiers.Résolu

Question

Bonjour a tous,

Je suis en train de dévellopper une appli ( un lecteur media) 
dans celle-ci, j'ai créer un playlist je souheterais pouvoir ouvrir plusieurs fichier en meme temps avec une common dialog ! 
je m'explique si lutilisateurs désire ouvrir plusieurs MP3 situé dans un meme dossier pour linstant il doit ouvrir la common autant de fois qu'il y a de fichiers. existe t'il un moyen pour quil puisse les selectionner tous et que je puisse récupérer tous les chemins ? 

Je sais que je pourrais utiliser un dirlistbox mais je souheterais savoir si ma question a une réponse possible ! 

Merci d'avance  ;) . 

KC62  

On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...

cs_Jack · Accepted Answer

Salut KC62
En complément, sache que le résultat (.FileName) aura un format un peu particulier :
En premier, tu vas trouver le répertoire, suivi de la liste des fichiers sélectionnés.
Il te faut donc isoler le nom du répertoire, et isoler chaque nom de fichier.
Regarde de plus prêt la chaine, je pense que les séparations sont des caractères Chr(0) ou vbTab (à confirmer), donc facile à décomposer :

Dim Tablo() as String
... Appel de ta CommonDialog CD
Tablo = Split(CD.FileName, Chr(0))

Le nom du répertoire se retrouve dans Tablo(0), et la liste des fichiers dans les index suivants

Vala
Jack

Renfield · Answer

Il suffit en fait de modifier certaines proprietes du controle....


    CommonDialog1.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect
    CommonDialog1.ShowOpen


il ne te reste plus qu'a decouper le resultat obtenu, pour retrouver tes noms de fichier....

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

KC62 · Answer

Merci a vous deux sa fé plezz ...

On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...

comtention · Answer

Moi pour recuperer les addresses entieres j'ai fait:

t2 = 1
racine = tablo(0) & ""
Do
List1.AddItem racine & tablo(t2)
t2 = t2 + 1
Loop Until tablo(t2) =  ""

Ca marche bien je r&#233;cupere toutes les adresses mais &#224; la fin sa met une erreur "subscript out of range" et sa me surligne la ligne que j'ai mise en brune.

Vous savez m'aider?

Merci davance

Renfield · Answer

Racine = tablo(0) & ""
For t2 = 1 to Ubound ( tablo )
     List1.AddItem racine & tablo(t2)
Next t2

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

comtention · Answer

Merci bien

comtention · Answer

Ouai non ca va pas, la premiere adresse de ma list est un dossier.

Renfield · Answer

je ne saisi pas ce que tu dis ....

Dim Racine as String
Dim Tablo() as String

CD.ShowOpen
tablo = Split ( CD.FileName , VbNullChar )
Racine = tablo(0) & ""
List1.Clear
For t2 = 1 to Ubound ( tablo )
     List1.AddItem racine & tablo(t2)
Next t2

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

comtention · Answer

Ok ca marche now j'avais du faire une erreur. Mais j'ai encore un probleme (d&#233;soler), je n'arrive plus a selectionner qu'un seul fichier alors j'ai essaillier comme cela.

tablo = Split(cd.FileName, vbNullChar)
racine = tablo(0) & ""
    If tablo(1) <> "" Then
    For t2 = 1 To UBound(tablo)
    List1.AddItem racine & tablo(t2)
    Next t2
    Else
    List1.AddItem cd.FileName
    End If

Mais sa me met une erreur "subscript out of range" quand je selectionne qu'un seul fichier et sa me surligne la ligne en brune.

Renfield · Answer

les &#233;l&#233;ments ne sont s&#233;par&#233;s que si tu en selectionne plus d'un.
Il suffit de tester la taille de ton tableau

tablo = Split(cd.FileName, vbNullChar)
racine = tablo(0) & ""
    If Ubound(tablo) > 0 Then
        For t2 = 1 To UBound(tablo)
            List1.AddItem racine & tablo(t2)
        Next t2
    Else
        List1.AddItem cd.FileName
    End If

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

comtention · Answer

Ok merci bien! D&#233;sol&#233;, j'ai mis un petit temps a repondre car j'avais un autre probleme et je ne voulais pas te deranger a nouveau donc j'ai chercher a fond sur la solution et codes sources lavais ouf ! Merci en tt cas

Common dialog + ouvrir plusieurs fichiers.

11 réponses

Discussions similaires