Buenas y gracias pkj.
Genial.
Veras... buscando yo también, y juntando código de aquí y de allá, he hecho este código:
Código:
Private Sub Command1_Click()
Dim vFiles As Variant
Dim lFile As Long
CommonDialog1.FileName = ""
CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
CommonDialog1.Filter = "All files (*.*)|*.*"
CommonDialog1.ShowOpen
vFiles = Split(CommonDialog1.FileName, Chr(0))
If UBound(vFiles) = 0 Then
List1.AddItem CommonDialog1.FileTitle
Else
For lFile = 1 To UBound(vFiles)
List1.AddItem vFiles(lFile)
Next lFile
End If
Dim cosa As String
Dim linea As String
Dim z As Integer
For z = 0 To Form1.List1.ListCount - 1
cosa = Form1.List1.List(z)
If cosa <> "" Then
Open cosa For Input As #1
Line Input #1, linea
Text1.Text = Text1.Text & linea & vbNewLine
Close #1
End If
Next
End Sub
Bueno, el código hace más o menos lo que quiero (me permite seleccionar varios archivos; me muestra en un listbox "solo" el nombre del fichero, sin la ruta; y en un textbox me muestra el contenido de la primera linea del text file), el problema, es que cuando despues de haber seleccionado x archivos (puede ser uno o varios), si vuelvo a abrir el CommonDialog para añadir algún otro, se repite lo que ya habia en el textbox, creo que el error debe de ser muy tonto, pero no consigo dar con la tecla para que no se repita, creo saber por que linea debe estar el fallo, pero creo que estoy hocicao y no consigo verlo desde fuera.
Si quieres, echale un vistazo a ver si consiguiéramos ver donde esta el fallo.
Si lo encontrase, lo vuelvo a postear.
Espero que también este te pueda servir de algo para cualquier cosa.
Un saludo, y agradezco mucho lo que me estas ayudando.