AYUDA CON VB - Commondialog

[pabli]

Si le pones

"Or cdlOFNExplorer"

ya no te saca la lista de archivos, solo la ruta del directorio, y eso que en modo depuración se ven los archivos.


-------------------------------------------------------
Private Sub Command1_Click()

Dim S_cadena As String

'Limpio la lista
List1.Clear

CommonDialog1.Flags = cdlOFNAllowMultiselect
CommonDialog1.Filter = "Mp3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen

'Aquí tienes todos los ficheros, solo queda quitar la ruta hasta
'la "\" , separarlos, ordenarlos y por último pasarselos al List
S_cadena = CommonDialog1.FileName

'Quito la ruta hasta "\"
While InStr(S_cadena, "\") <> 0

S_cadena = Trim(Mid(S_cadena, InStr(S_cadena, "\") + 1))
Wend
'Separa los mp3
While InStr(LCase(S_cadena), ".mp3") <> 0

List1.AddItem Left(S_cadena, InStr(LCase(S_cadena), ".mp3") + 4)
S_cadena = Trim(Mid(S_cadena, InStr(LCase(S_cadena), ".mp3") + 4))
Wend
End Sub
-------------------------------------------------------

Saludos