Problema en LoadPicture()

Respuesta de
a
Usuario
Hola, me llamo Jose David y este me parece un gran proyecto y me atrae. Ante todo gracias.
Mi pregunta:
Tengo un formulario, y a través de un filelistbox selecciono una imagen la cual quiero cargar a través de un loadpicture ("ruta"). En mi pc todo funciona correctamente, tengo win xp. Pero cuando he llevado mi aplicación a otro pc con win98 me da el error de que cuando cargo una imagen del primer directorio por ejemplo c: sin entrar en más carpetas no encuentra el archivo ya que me carga la ruta de la siguiente manera C:\\archivo.jpg y no lo encuentra.
El código que utilizo es el siguiente:
Dim c, d As Variant
c = File1.FileName
d = File1.Path
Image1.Picture = LoadPicture(d & "\" & c)

Ese es el problema, en mi pc si lo hace correctamente, pero en otro me da el error de que no encuentra el archivo.
Experto
Tienes varias maneras de soucionar eso
1.- Puedes verificar si el valor de la variable de es igual a la raíz de las unidades por ejemplo :
if Ucase(d) = "D:\" Or Ucase(d) = "C:\" etc..

2.- Otra más conveniente es comparar el último carácter que te regrese esa variable por ejemplo :

If Right(d,1) = "\" Then
d=mid(d,1,len(d)-1)
End if
image1.picture = loadpicture(d & "\" & c)

ó
If Right(d,1) = "\" Then
image1.picture = loadpicture(d & c)
Else
image1.picture = loadpicture(d & "\" & c)
End if

ó
If Right(d,1) <> "\" Then
Else
d=d & "\"
End If
image1.picture = loadpicture(d & c)
Usuario
Muchísimas gracias, en serio. Aún no lo he probado en otro pc, pero seguro funciona. Gracias.