Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Hacemos un Ciclo
For I = 0 To File1.ListCount - 1
If File1.Selected(I) Then 'Si esta Seleccionado = True
myPath = myPath & File1.List(I)
Exit For
End If
Next I