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