Sebastian
14 de Abril del 2004

Gracias por la ayuda !!!
me sirvi un monton, el tema es como hago para que los seleccionado me los baje a un text???

yo lo tengo echo pero con una sola seleccion (Text1.Text = File1.FileName), Como hago para hacerlo con varis ???

Gracias por la ayuda...
Sebastian

tencho
14 de Abril del 2004

no se si habra una funcion que haga eso altiro pero puedes hacer lo siguiente

Private Sub Command1_Click()
Dim Archivos As String
Archivos = ""
For i = 0 To File1.ListCount - 1
If File1.Selected(i) = True Then Archivos = Archivos & File1.List(i) & vbCrLf
Next i
Text1.Text = Archivos
End Sub

En el formulario coloca un FileListBox, TextBox y un CommandButton, el TextBox en tiempo de diseño cambiale la propiedad MultiLine a True