OpenFileDialog unbehandelt Ausnahme

Question

Ich arbeite in VS2013 mit der OpenFileDialog von einem Modul und es funktioniert gut einmal. Wenn der Benutzer es öffnet sich wieder wird dieser Fehler angezeigt:

"ArgumentException was unhandled

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

Additional information: Positive length is expected"

Mein 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 
     ... 

Der Fehler tritt auf der ShowDialog Linie. Was vermisse ich?

Answer 1

Ihr Variablenname str_PathFileName ist möglicherweise leer. Check ist dein Weg gut.

  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 

sollte dies in einem einfachen Unter für mich vorbei

Answer 2

Ihr Code funktioniert gut() mit Ihrem Code nur in ihm - versuchen, Ihren Code auf eine Schaltfläche klicken Ereignis zu bewegen und sehen, ob es Stall ausfällt.

Hier ist eine Variante, die ein wenig die Dinge besser reinigen kann:

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