有个项目以前用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