Cómo puedo abrir un archivo sin ruta en VB5

[Libardo]

Cordial Saludo
Soy Nuevo en este Foro, espero poder colaborarles en todo lo que pueda.
Estoy creando un cd autorun con archivos ejecutables (Instaladores) que incluye en un TextBox que me muestra una descripción de dicho archivo, pero lo hace con una ruta, Lo he quemado pero al ponerlo en otro PC ya no me muestra la descripción me sale error. Que debo hacer para corregir este problema.
Trabajo con VB para desarrollo de 32 Bits.
Gracias por su ayuda.

[David]

Iniciado por Libardo

Cordial Saludo
Soy Nuevo en este Foro, espero poder colaborarles en todo lo que pueda.
Estoy creando un cd autorun con archivos ejecutables (Instaladores) que incluye en un TextBox que me muestra una descripción de dicho archivo, pero lo hace con una ruta, Lo he quemado pero al ponerlo en otro PC ya no me muestra la descripción me sale error. Que debo hacer para corregir este problema.
Trabajo con VB para desarrollo de 32 Bits.
Gracias por su ayuda.

Según parece, el problema es que colocas la ruta completa:

Código:

 
D:\Aplicación\App.exe

Puedes reeemplazarlo por App.Path que te devuelva la ruta de tu programa:

Código:

 
Function AppPath() As String
ChDrive App.Path
ChDir App.Path
AppPath = IIf(Right(App.Path, 1) <> "\", App.Path & "\", App.Path)
End Function

Entonces, en vez de colocar la ruta completa colocas así:

Código:

 
AppPath & "Aplicación\App.exe"

Espero haberte ayudado con tu problema.

[Libardo]

Gracias por su interes en colaborarme.
Ya he escrito el codigo per me sale "ERROR DE COMPILACION" "USO NO VALIDO DE LA PROPIEDAD" Se refiere a Parh
El codigo que escribí es:
App.Path "\Antivirus\AVG ANTIVIRUS 7.5\avg75free_516a1225.exe"

[Libardo]

Iniciado por Libardo

Gracias por su interes en colaborarme.
Ya he escrito el codigo per me sale "ERROR DE COMPILACION" "USO NO VALIDO DE LA PROPIEDAD" Se refiere a Parh
El codigo que escribí es:
App.Path "\Antivirus\AVG ANTIVIRUS 7.5\avg75free_516a1225.exe"

[Avellaneda]

Falta el concatenador (ampersand)

App.Path & "\Antivirus\AVG ANTIVIRUS 7.5\avg75free_516a1225.exe"