El nombre y el path del ejecutable (sin API)

Fecha: 26/May/2004 (25/05/2004)
Autor: Antonio Lyon ([email protected]) Venezuela

Función que permite extraer el nombre del ejecutable y la ruta sin usar la API de Windows.

La función funciona de la siguiente manera, por defecto el extrae la ruta sin el backslash, pero puede seleccionarse a partir de la variable TipRuta con sus cuatro opciones, que permiten traer el ejecutable, la ruta con el ejecutable, la ruta con backslash y sin backslash.

A continuación sigue código en Visual Basic:

 

   Public Enum TipRuta
        Archivo = 0 'Extrae Archivo 
        RutaSB = 1  'Extrae la Ruta sin BackSlash 
        RutaCB = 2  'Extrae la Ruta con Backslash 
        RutaArc = 3 'Extrae la Ruta Con el Ejecutable 
    End Enum 
    
    Public Function AppPath(Optional ByVal Ruta As TipRuta = TipRuta.RutaSB) As String 
        Dim I As Integer 
        Dim s As String 
                    
        s = Application.ExecutablePath 
        I = 0 
        Do While True 
            If InStr(I + 1, s, "\", CompareMethod.Text) = 0 Then 
                I = InStr(I + 1, s, "\", CompareMethod.Text) 
            Else 
                Exit Do 
            End If 
        Loop 
        Select Case Ruta 
            Case TipRuta.Archivo 'EXTRAE ARCHIVO 
                s = Mid(s, I + 1) 
            Case TipRuta.RutaSB 'EXTRAE RUTA SIN BACKSLASH 
                s = Mid(s, 1, I - 1) 
            Case TipRuta.RutaCB 'EXTRAE RUTA CON BACKSLASH 
                s = Mid(s, 1, I - 1) & "\" 
        End Select 
        Return s 
    End Function