ayuda con la selecion multiple del common dialog

mari
24 de Octubre del 2004
Necesito poder hacer una selecion multiple en el dialogo de apertura, he provado con esto-> cd1.flags = &H200
pero al hacer esto me sale otro common dialog distinto y mas rustico que el normal, que me permite hacer selecciones multiples pero no me coje bien el nombre de los archivos y yo necesito que me los coja exactamente como se llaman ya que voy a mostrar en un listbox los archivos selecionados, sin embargo con este flag me muestra los nombres de archivos incompletos y con simbolos raros ej: ataque~1.mp3 y la cancion se llama: Ataque77 - Porque te vas.mp3
por favor necesito una solucion, muchas gracias x vuestra ayuda ;)

roymx
24 de Octubre del 2004
hola mari prueba esto

On Error GoTo ms ' Error control

Dim vFiles As Variant
Dim lFile As Long
With cmnDialog
.FileName = "" 'Clear the filename
.CancelError = True 'Gives an error if cancel is pressed
.DialogTitle = "Select File(s)..."
.flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly 'Falgs, allows Multi select, Explorer style and hide the Read only tag
.Filter = "Archivo de mapa de bits(*.bmp)|*.bmp" '"All files (*.*)|*.*"
.ShowOpen
vFiles = Split(.FileName, Chr(0)) 'Splits the filename up in segments
If UBound(vFiles) = 0 Then ' If there is only 1 file then do this
List1.AddItem .FileName
List2.AddItem .FileTitle

Else

For lFile = 1 To UBound(vFiles) ' More than 1 file then do this until there are no more files
List1.AddItem vFiles(0) + "" & vFiles(lFile)
List2.AddItem vFiles(lFile)

Next

End If
End With


ms: