浏览选项中提取单独文件名

在下面的编码文件的完整路径显示，ehat的程序，以显示"文件name.extension"

<pre lang="vb">Public Class Form1

 

    Dim fdlg As OpenFileDialog = New OpenFileDialog()

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        fdlg.Title = "open"

        fdlg.InitialDirectory = "c:\"

        fdlg.Filter = "All files(*.*)|*.*|RTF files(*.rtf)|*.rtf|document files(*.doc)|*.doc"

        fdlg.FilterIndex = 1

        fdlg.RestoreDirectory = True

        If fdlg.ShowDialog = Windows.Forms.DialogResult.OK Then

            ListBox1.Items.Add(fdlg.FileName)

            MessageBox.Show("You selected " & fdlg.FileName)

        End If

 

    End Sub