Open File Dialog Help

[nd54]

Hey all trying to get this Open File Dialog to work...
When I hit cancel on the second time it adds the file to the list anyways

    Private Sub MenuItem3_Click(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim ofd As New OpenFileDialog()
Dim lv As ListViewItem
      ofd.Title = "Select  FILE TO OPEN..."
        ofd.Filter = "All Files(*.*)|*.*"
        ofd.ShowDialog()
        If ofd.FileName = "" Then Exit Sub
lv = ListView1.Items.Add(ofd.filename
lv.subitem.add("test")
lv.subitem.add("testing")
end sub

Thank You

 

[divil]

If ofd.ShowDialog() = DialogResult.Cancel Then Exit Sub

You should be using that instead of checking the length of the filename.

 

[nd54]

Thank You Divil... I guess im still use to vb6

 

[divil]

Even in VB6 the best way was to use the CancelError property and trap the error