Ayuda con ruta de una carpeta
Tengo el siguiente código, que me hace lo siguiente al digitar un código en un campo de texto y al entrar en el siguiente campo si existe una imagen con ese código me la carga en un campo de image.. El problema es que la ruta que tengo para buscar en la carpeta, si me llevo el trabajo a tro lado de una vez se me daña y no encuentra nada,,, Hay una forma de poner en esta linea, una ruta o path que se dinámica digamos así, ¿qué no importa para donde la lleve siempre y cuando el programa y las imágenes estén en la misma carpeta funcione?
Cambiar esa dirección fija por una dirección me reconozca la ruta no importa si cambio la carpeta de lugar.
Dire = "C:\Documents and Settings\usuario\Escritorio\Historias\"
Private Sub Text22_GotFocus()
medico Me.Text8.Text
Dim Dire As String
Dim ext As String
Dire = "C:\Documents and Settings\usuario\Escritorio\Historias\"
ext = ".jpg"
On Error Resume Next
Me.Image1.Picture = LoadPicture(Dire & Me.Text8 & ext)
If Err.Number = 53 Then
Image1.Picture = LoadPicture("")
End If
End Sub
Cambiar esa dirección fija por una dirección me reconozca la ruta no importa si cambio la carpeta de lugar.
Dire = "C:\Documents and Settings\usuario\Escritorio\Historias\"
Private Sub Text22_GotFocus()
medico Me.Text8.Text
Dim Dire As String
Dim ext As String
Dire = "C:\Documents and Settings\usuario\Escritorio\Historias\"
ext = ".jpg"
On Error Resume Next
Me.Image1.Picture = LoadPicture(Dire & Me.Text8 & ext)
If Err.Number = 53 Then
Image1.Picture = LoadPicture("")
End If
End Sub
1 Respuesta
Respuesta de jerryeagle
1