Visual Basic - concatenar una ruta

Life is soft - evento anual de software empresarial
   
Vista:

concatenar una ruta

Publicado por iratxe (13 intervenciones) el 10/11/2007 12:21:49
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:concatenar una ruta

Publicado por El conejo (124 intervenciones) el 10/11/2007 17:18:00
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:concatenar una ruta

Publicado por 6Q (1 intervención) el 11/11/2007 13:15:03
Si el directorio de las imagenes esta dentrode la carpeta de instalacion,
puesde usar :

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

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:concatenar una ruta

Publicado por iratxe (13 intervenciones) el 13/11/2007 12:08:01
vale, muchas gracias, ya me funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:concatenar una ruta

Publicado por Miguel meza (3 intervenciones) el 19/02/2008 23:38:29
usa la sig instruccion

App.path & "\Nombre del archivo"

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

slds
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:concatenar una ruta

Publicado por jose (3 intervenciones) el 23/06/2008 16:12:14
como poner dos o mas lineas de texto en un textbox
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:concatenar una ruta

Publicado por schoeps kevin (1 intervención) el 11/12/2008 15:47:23
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 "kesv_666@hotmail.com" se los estare agradeciendo mucho...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar