List1 Full path weg

[eeyk]

ik ben bezig met eigen media player maken dit lukt aardig

maar het lukt niet om als je musiek kies C:\path\naam.mp3

hoe krijg ik

C:\path weg en alleen naam.mp3

dus Bevoorbeeld

musiek.mp3

ik gebruik VB6 en list1

 

[That Guy]

draai de hele string om, zoek naar de 1e "\" en pak die via de mid() functie, en draai m dan weer terug om

 

[eeyk]

ehh ik snap niet echt wat je bedoeld dit gebruik ik

Private Sub Command1_Click()
List1.Enabled = True
Dim sfile As String
   With CommonDialog1
     .DialogTitle = "Open Media...."
     .CancelError = False
     .Filter = "All Bestanden.."
     .ShowOpen
     If Len(.FileName) = 0 Then
     Exit Sub
     End If
     sfile = .FileName
     With List1
       .AddItem sfile
       End With
       End With
End Sub