Prueba con:
Fichero = Dir1.List(Dir1.ListIndex) & "\" & File1.List(List1.ListIndex)
aunque antes deberias comprobar si el valor de dir1 contiene ya la barra inversa
Código vb:
Ver originalIf Right$(Dir1.List(Dir1.ListIndex), 1) = "\" Then
Fichero = Dir1.List(Dir1.ListIndex) & File1.List(List1.ListIndex)
Else
Fichero = Dir1.List(Dir1.ListIndex) & "\" & File1.List(List1.ListIndex)
End If
Eso solo ocurre cuando estamos en la raiz del disco, pero ocurre.
Saludos