Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/04/2011, 13:36
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 8 meses
Puntos: 29
Respuesta: drivelistbox,dirlistbox y filelistbox

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 original
  1. If Right$(Dir1.List(Dir1.ListIndex), 1) = "\" Then
  2.   Fichero = Dir1.List(Dir1.ListIndex) & File1.List(List1.ListIndex)
  3. Else
  4.   Fichero = Dir1.List(Dir1.ListIndex) & "\" & File1.List(List1.ListIndex)
  5. End If

Eso solo ocurre cuando estamos en la raiz del disco, pero ocurre.

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Última edición por pkj; 24/04/2011 a las 13:43