jairo79
16 de Abril del 2004

\'Este despliega un comondialog en el que esta permitido seleccionar
\'varios archivos , Dialog.FileName= c:\ruta\nombre.jpg nombre2.jpg nombre3.jpg.......
\' cadenas = Split(Dialog.FileName, " ") esto deberia de guardar el nombre del
\'archivo en cada elemento del array y por ultimo anadirlo a un listbox

Private Sub Command1_Click()
Dim S_cadena As String
Dim cadenas() As String * 10 \'ARRAY DE CADENAS
Dim i As Integer
\'Limpio la lista
List1.Clear

Dialog.Flags = cdlOFNAllowMultiselect
Dialog.Filter = "Todos (*.*)|*.*"
Dialog.ShowOpen

\'Aquí tienes todos los ficheros, solo queda quitar la ruta hasta
\'la "\" , separarlos, ordenarlos y por último pasarselos al List
S_cadena = Dialog.FileName
\'MsgBox Dialog.FileName
cadenas = Split(Dialog.FileName, " ")
For i = 0 To i = 5

List1.AddItem cadenas(i)
\'MsgBox cadenas(i) NO LOHACE BIEN
Next i