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

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

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

• Application.StartupPath
• Application.ExecutablePath
• Server.MapPath

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

@H_404_24@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