ptit souciRésolu

Question

voila du a un formatge chez perdu un bout de mon code,et je n'arrive pu a me rappeller comment j'avais fait

je clicke sur un label qui ouvre la boite de dialogue open , ensuite les objet selectionner sont ajouter a ma listbox le probleme c'est qu'il apparaisse en c/documentandsetting/etcc/test.mp3
hors je voudrai qu'il apparaisse en test.mp3 j'ai essayer a plusieur reprise de modifier quelque bout de mon code mais au moment de la lecture donc de la fontion wmp1.filename = list1 ; wmp1.play j'ai une erreur voici mon code qui permet la multiselection

Private Sub Label12_Click()

Dim str      As String
Dim pos      As Long
Dim Path1        As String
With cmd1
        .FileName = ""
        .DialogTitle = "Ouvrir fichiers "
        .DefaultExt = "*.*"
        .Filter = "Format supporté|*.mp3;*.wma;*.wav;.*midi;*.ogg" 'applique un filtre pour ouvrir un fichier
        .InitDir = App.Path
        .Flags = 9194495

    End With
    
    cmd1.ShowOpen
    
        str = cmd1.FileName
        pos = InStr(str, Chr(0))
        
        If pos = 0 Then
            List1.AddItem cmd1.FileName
            Exit Sub
        End If
        
        Path1 = Left(str, pos - 1)
        
        Do
            str = Mid(str, pos + 1, Len(str))
            pos = InStr(str, Chr(0))
            
            If pos <> 0 Then
                If InStr(Mid(str, 1, pos - 1), ":") = 0 Then
                    List1.AddItem Path1 & "" & Mid(str, 1, pos - 1)
                Else
                    List1.AddItem Mid(str, 1, pos - 1)
                End If
            Else
                List1.AddItem Path1 & "" & str
                Exit Do
            End If
        Loop
    
End Sub

voila merci d'avance

NessX

Gobillot · Accepted Answer

pour un seul sélectionné le chemin et le nom se trouve dans strf(0) pour avoir le nom seulement il faut faire des manipulations de chaînes.
pour plusieurs sélectionnés le chemin est dans strf(0) et les noms sont à part dans la table.


If n = 0 Then
    i = InStrRev(strf(0), "")
    Path1 = Left$(strf(0), i)
   List1.AddItem Mid$(strf(0), i + 1)
   Exit Sub
   End If

Path1 = strf(0)
If Right$(Path1, 1) <> "" Then Path1 = Path1 & ""

For i = 1 To n
      List1.AddItem strf(i)
      next


Daniel

Gobillot · Answer

Dim strf() As String
 Dim n     As Integer
 Dim i     As Integer

str = Cmd1.FileName

strf = Split(str, Chr$(0))
n = UBound(strf)

If n = 0 Then
List1.AddItem strf(0)
Exit Sub
End If

Path1 = strf(0)
If Right$(Path1, 1) <> "" Then Path1 = Path1 & ""

For i = 1 To n
List1.AddItem Path1 &  strf(i)
next


Daniel

nessx · Answer

Ton code me simplifie beaucoup le mien :) , mais les noms s'affiche toujours dans la listbox en c:\documentandsetting	est.mp3 et pas en test.mp3 tout simplement et en fonctionnant car j'ai deja reussi a lui donné cette forme mais sa me mais une erreur de chemin pour le composant dc j'en suis toujours au meme point 
merci quand meme, si ta d'autre proposition suis la

NessX

nessx · Answer

Merci de ton aide et de repondre vite , mais en faite la je retrouve a peu pres , pas avec le meme code que toi , mais je me retrouve ou j'en étais avant c'est a dire que au moment de faire play sa fonctionne pas il me mais un message d'erreur de chemin d'acces

NessX

nessx · Answer

Merci beaucoup je vien de me rendre compte que c'etais mon flags qui me bloquait tout depuis le debut , encore merci de ton aide 

NessX

Ptit souci

5 réponses