Solución:
Para eso puedes usar el Application objeto.
Ruta de inicio, solo la carpeta, use Application.StartupPath ()
Dim appPath As String = Application.StartupPath()
Ruta .exe completa, incluido el nombre program.exe al final :, use Application.ExecutablePath ()
Dim exePath As String = Application.ExecutablePath()
Prueba esto: My.Application.Info.DirectoryPath [MSDN]
Esto está usando el My característica de VB.NET. Esta propiedad en particular está disponible para todos los tipos de proyectos que no son web, desde .NET Framework 2.0, incluidas las aplicaciones de consola que necesite.
Siempre que confíe en que Microsoft seguirá funcionando correctamente para todos los tipos de proyectos anteriores, esto es más sencillo de usar que acceder a las otras soluciones “más directas”.
Dim appPath As String = My.Application.Info.DirectoryPath
Para una aplicación de consola, puede usar System.Reflection.Assembly.GetExecutingAssembly().Location siempre que la llamada se realice dentro del código de la aplicación de la consola, si lo llama desde otra dll o complemento, esto devolverá la ubicación de esa DLL y no el ejecutable.