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