OpenFileDialog unhandled exception

0
votes

I am working in VS2013 using the OpenFileDialog from a module and it works great once. If the user opens it again this error is displayed:

"ArgumentException was unhandled

An unhandled exception of type 'System.ArgumentException' occurred in System.Windows.Forms.dll

Additional information: Positive length is expected"

My code:

Dim fd As OpenFileDialog = New OpenFileDialog()
Try
    With fd
        .Title = "Select File Dialog"
        .InitialDirectory = str_PathFileName
        .FileName = Path.GetFileName(str_PathFileName)
        .Filter = "All files (*.*)|*.*"
        .Multiselect = False
        .RestoreDirectory = True
        If (.ShowDialog() = DialogResult.OK) Then
        ...

The error happens on the ShowDialog line. What am I missing?

2
vb.netopenfiledialog
What is the value of str_PathFileName when it crashes? There also might be more information in the Details of the exception dialog - Ňɏssa Pøngjǣrdenlarp
do a dispose of openfiledialog after showdialog returns - kunal
adding fd.Dispose() had no effect - Terabithia
str_PathFileName on a second use contains a valid path and filename. - Terabithia
If I comment out all of the OpenFileDialog parameters except ShowDialog, I still get the error: - Terabithia

2 Answers

0
votes

Your variable name str_PathFileName might be empty. Check is your path good.

           Dim fd As OpenFileDialog = New OpenFileDialog()
            Dim str_PathFileName As String = "C:\"  'put your valid path

            With fd
                    .Title = "Select File Dialog"
                    .InitialDirectory = str_PathFileName
                    .FileName = IO.Path.GetFileName(str_PathFileName)
                    .Filter = "All files (*.*)|*.*"
                    .Multiselect = False
                    .RestoreDirectory = True
                    If (.ShowDialog() = DialogResult.OK) Then

                    End If

                End With

This should pass

0
votes

Your code works fine for me in a simple Sub() with just your code in it - try moving your code to a button click event and see if it stall fails.

Here is a variation that may clean things up a bit better:

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Dim str_PathFileName As String = "C:\Temp"  'put your valid path
    Using fd As New OpenFileDialog
        With fd
            .Title = "Select File Dialog"
            .InitialDirectory = str_PathFileName
            .FileName = IO.Path.GetFileName(str_PathFileName)
            .Filter = "All files (*.*)|*.*"
            .Multiselect = False
            .RestoreDirectory = True
            Dim result As DialogResult = .ShowDialog
            MsgBox(result.ToString)
        End With
    End Using
End Sub