15/11/2003, 14:02
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 21 años, 4 meses Puntos: 0 | |
| Que tal manoplas,
ahí va:
------------------------------------------------
Private Sub Command1_Click()
Dim S_cadena As String
CommonDialog1.Flags = cdlOFNAllowMultiselect
CommonDialog1.Filter = "Todos (*.*)|*.*"
CommonDialog1.ShowOpen
'Aquí tienes todos los ficheros, solo queda quitar la ruta hasta
'la "\" , separarlos, ordenarlos y por último pasárselos al List
S_cadena = CommonDialog1.FileName
List1.AddItem CommonDialog1.FileName
End Sub
------------------------------------------------
También puedes utilizar un DriveListBox, DirListBox y un FileListBox conectados.
Un saludo |