No reconoce ruta

[cadesa]

Hola como estan, quisiera que me ayudarán con una aplicación que no encuentra la ruta para cargar las imagenes, dado que tengo un menu dinamico que crea los botones y carga las imagenes de acuerdo a como se tenga permiso, lo que pasa es que en unas computadoras si se despliegan las imagenes y en otras no, el código que utilizo para cargar las imagenes es:

Código Función que retorna imagenes:

Private Function busca_imagenes(ByVal nombre As String) As Bitmap
        Dim ruta_antes As String = "C:\Program Files"
 
        If Directory.Exists(ruta_antes) = False Then
            ruta_antes = "C:\Archivos de Programa"
        End If
 
        Dim ruta As String = ruta_antes + "\imagenes\"
        ruta = ruta.ToString + nombre.ToString() + ".png"
        Dim imagen As Bitmap
 
        If File.Exists(ruta) = True Then
            Dim img As New DirectoryInfo(ruta)
            imagen = New Bitmap(ruta)
        Else
            imagen = Nothing
        End If
        Return imagen
 

yo creo que esta bien y porque me funciona en unas computadoras pero no se porque en otras no.

Saludos.

[kyha]

En las computadoras que te han fallado has comprobado que la ruta si que existia?
Puede que no existiera la carpeta imagenes.

[boluart]

sisteme operativo de las PCs donde falla y donde no falla

[Peterpay]

y porq no usas Environment.SpecialFolder.ProgramFiles para obtener la ruta sin importar si es c d e o es otra version de windows

[cadesa]

Gracias por sus respuestas, pues se soluciono casi como lo dice Peterpay, para responder a los post anteriores,

1. La ruta si existe porque yo mismo la copie.
2. El SO es Windows XP y Windows Vista.

la función luego de arreglarla quedo así:

Código Funci&#243:

Dim ruta As String =[COLOR="Red"] Enviroment.CurrentDirectory[/COLOR] + "\imagenes\"
        ruta = ruta.ToString + nombre.ToString() + ".png"
        Dim imagen As Bitmap
        If File.Exists(ruta) = True Then
            Dim img As New DirectoryInfo(ruta)
            imagen = New Bitmap(ruta)
        Else
            imagen = Nothing
        End If
        Return imagen
 

y así toma siempre el directorio donde esta el ejecutable mas la carpeta imagenes.

Saludos.