VB.NET 文件路径

Public Function App_Path() As String '本程序目录
        Return System.AppDomain.CurrentDomain.BaseDirectory()
    End Function
    '判断目录是否存在的函数,传入String值,返回Boolean值
    Private Function Boo_DirExist(ByVal Str_Path As String) As Boolean
        Boo_DirExist = System.IO.Directory.Exists(Str_Path)
    End Function
    '判断文件是否存在的函数, 传入String值,返回Boolean值
    Private Function Boo_FileExist(ByVal Str_File As String) As Boolean
        Boo_FileExist = System.IO.File.Exists(Str_File)
    End Function