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