Visual Basic - concatenar una ruta

Hola: quiero concatenar una ruta con el nombre de una imagen que se introduce mediante un campo de texto, alguien sabe como se hace esa concatenacion?
esque tengo puesto esto pero no funciona:

Picture1.DataField = "D:\Documents and
Settings\Escritorio\prueba\proyecto\fotos\imagenes\ & codFoto"

Hay alguna funcion que me busque la ruta sin pasarsela?esque si esto lo pruebo en otro ordenador con diferente ruta daria error.

Alguien sabe como se hace estas 2 cosas?

muchisimas gracias

Hola-

Picture1.DataField = "D:\Documents and
Settings\Escritorio\prueba\proyecto\fotos\imagenes\" & codFoto

2. Este código lo encontré en "http://www.tutores.org/?codigo=1067", lo probe y si funciona, un poco lento pero funciona.

Function PathTo(strFile As String) As String
Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = "c:\" & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDir = Left$(strDirs, x - 1)
strDirs = Mid$(strDirs, x + 1)
If Len(Dir$(strDir & strFile)) Then
PathTo = strDir & Dir$(strDir & strFile)
Exit Function
End If
strEntry = Dir$(strDir & "*.*", vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry <> "." And strEntry <> ".." Then
strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
End If
End If
strEntry = Dir$
Loop
Loop
PathTo = ""
End Function

Private Sub Command1_Click()
MsgBox PathTo("AcroRd32.exe")
End Sub

Espero te sirva.
Saludos.

Si el directorio de las imagenes esta dentrode la carpeta de instalacion,
puesde usar :

Picture1.DataField = app.path & "\fotos\imagenes\" & codFoto

saludos

vale, muchas gracias, ya me funciona

usa la sig instruccion

App.path & "\Nombre del archivo"

App.path te toma la ruta donde se esta ejecutando tu aplicacion

slds

como poner dos o mas lineas de texto en un textbox

buenas alguien sabe como hacer toda esa concatenacion utilizado app.path o como se puede concatenar una ruta mas espesifica con su estencion como por ejemplo:

text1.text = "c:sistemaswebservicios.html"

yo lo tengo asi pere me genra error

dim nombre as string

nombre = text1.text
webbrowser.connectionstring = "c:sistemasweb nombre " + ".html " "

pero me genera un error

cualquier ayuda me la pueden enviar a mi correo "[email protected]" se los estare agradeciendo mucho...