como agrego uno o varios directorio al Path de mi aplicacion?

Hola:

sin codificar como tu lo indicas lo dudo
lo que puedes hacer es declarar variables globales a nivel de modulo donde
guardes la información de la ruta de cada una de ellas
cuando instales tu aplicación en el equipo del usuario final, al abrirse por
primera vez puedes ayudarte con un CommonDialog para definir las rutas de
cada una
y luego las guardas con un SaveSetting
cada vez que abras la aplicacion solo debes buscarlas con el GetSetting para
recuperar las rutas y las asignas a las variables correpondientes

Espero haberme explicado


Saludos

Nohel Hernandez
Caracas - Venezuela

(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro

Hola.

No entendí muy bien lo que necesitas.

Pero creo que la mejor forma es que crees variables publicas y les asignes
las rutas.

strPathApp = App.Path
strPathImagenes = "C:\Dir1\Imagenes\"
strPathSonidos = "C:\Sonidos\"
strPathIconos = "E:\Librerias\Iconos\"

Aunque mejor aun seria que los directorios no se quedaran fijos en el código
si no que tuvieras la posibilidad de obtenerlos de forma externa, por
ejemplo a través de un archivo INI.

Declare Function GetPrivateProfileString Lib "Kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Function GetIni(str_IniFile As String, str_Section As String, str_Key As
String, str_Default As String) As String
Dim str_Temp As String * 256
Dim int_Length As Integer

str_Temp = Space$(256)
int_Length = GetPrivateProfileString(str_Section, str_Key, str_Default,
str_Temp, 255, str_IniFile)
GetIni = Left$(str_Temp, int_Length)
End Function

strPathApp = App.Path
strPathImagenes = GetIni(App.Path & "\TuArchivo.ini", "Rutas", "Imagenes",
"C:\Dir1\Imagenes\")
strPathSonidos = GetIni(App.Path & "\TuArchivo.ini", "Rutas", "Sonidos",
"C:\Sonidos\")
strPathIconos = GetIni(App.Path & "\TuArchivo.ini", "Rutas", "Iconos",
"E:\Librerias\Iconos\")


Saludos.
Ramón.

" NeoLeoX" escribió en el mensaje
news:

Hola Grupo...

Como le hago para agregar una serie de carpetas al path de mi aplicacion?

si mi aplicacion esta en C:\Dir1 pero mis imagenes estan en
C:\Dir1\Imagenes\ y mis Wave files estan en C:\Sonidos\ y mis iconos estan
en E:\Librerias\Iconos\ , como hacer para que mi aplicacion invoquen estos
archivos sin tener que codificar las rutas?


gracias de Antemano
Leonel Ortega