VB.NET控制台程序获取程序运行路径

有个项目以前用VB.net写的，想增加一个写日志功能，以方便定位程序的一些问题，转化的工作又比较多，于是乎考虑还是优化一下吧。

找了几个获取路径的函数，发现都是获取的环境路径，而本程序需要获取的是程序路径，然后增加日志文件操作。

通常网上介绍的几个方法有：

       Application.StartupPath
       Application.ExecutablePath
       Server.MapPath

这3个方法在命令行程序中并不能使用，于是用了几个其他方法，最终发现AppDomain下面是可以使用的，供参考。

 

Module Module1
''' <summary>
''' 程序主函数
''' </summary>
Sub Main()
Dim appDir As String
'appDir = Application.StartupPath
'appDir = Application.ExecutablePath
'appDir = Server.MapPath
appDir = System.Environment.CurrentDirectory
appDir = My.Computer.FileSystem.CurrentDirectory
appDir = System.IO.Path.GetFullPath("C:\test.txt")
appDir = AppDomain.CurrentDomain.SetupInformation.ApplicationBase
Console.WriteLine(appDir)

End Sub

End Module