Pues esta bien eso de implementar el App.Path, ya que si el directorio por defaul se cambia a traves de codigo o en tiemp de ejecucion, ya no jalaría bien, pero para poder utilizar el App.Path hay que averiguar si este es el directorio raiz de alguna unidad cualquiera, y en caso de no serlo agregarle un "" entre la ruta y el nombre del archivo...
Lo cual quedaria asi:
If Len(App.Path) <= 3 Then 'La ruta es el directorio raiz de alguna undidad a:, b:, c:, d:... etc
Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg")
Else
'este en un subdiretorio del directorio raiz, ejemplo c:MiCarpeta
'por lo tanto se le tiene que agregar el "" antes del archivo en cuestion
'ya que de no ser asi se trataria de buscar el archivo "c:MiCarpetaMiImagen.jpg"
'y no el archivo "c:MiCarpetaMiImagen.jpg" que es el que en realidad se desea abrir
Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg")
End If
Visiten el foro:
http://programador.foro.stHasta pronto...