VB.NET 中OpenFileDg文件名，路径的获取

     Private   Function GetFileName() Function GetFileName(ByVal FileName As String) As String

        Dim Names() As String = FileName.Split(New Char() {""})
        Dim Name As String = Names(Names.Length - 1)
        Return Name
    End Function
     Private   Function GetPath() Function GetPath(ByVal FileName As String) As String

        Dim path As String = FileName.Replace(GetFileName(FileName), "")
        Return path
    End Function