VB.Net获取文件和目录完整路径的代码

乐博网lob.cn提示：此代码运行环境为vb.net2008

Imports System.IO
Public Class Form1
    '获取当前文件夹中文件的完整路径
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyFileName As String = "MyFile.ext"
        Dim MyFullPath = System.IO.Path.GetFullPath(MyFileName)
        Dim MyInfo = MyFileName + "文件的完整路径是：" + MyFullPath
        MessageBox.Show(MyInfo, "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    '获取当前文件夹中目录的完整路径
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim MyDir As String = "MyDir"
        Dim MyFullPath = System.IO.Path.GetFullPath(MyDir)
        Dim MyInfo = MyDir + "目录的完整路径是：" + MyFullPath
        MessageBox.Show(MyInfo, "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    '获取当前根目录中文件的完整路径
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim MyFileName As String = "\MyRootFile.ext"
        Dim MyFullPath = System.IO.Path.GetFullPath(MyFileName)
        Dim MyInfo = MyFileName + "根目录文件的完整路径是：" + MyFullPath
        MessageBox.Show(MyInfo, "乐博网提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class