OpenFileDialog exception non gérée

Question

Je travaille dans VS2013 en utilisant le OpenFileDialog à partir d'un module et il fonctionne très bien une fois. Si l'utilisateur ouvre à nouveau cette erreur apparaît:

"ArgumentException was unhandled

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

Additional information: Positive length is expected"

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

L'erreur se produit sur la ligne ShowDialog. Qu'est-ce que je rate?

Answer 1

Le nom de votre variable str_PathFileName est peut-être vide. Vérifiez votre chemin est bon.

  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 

Cela devrait passer

Answer 2

Votre code fonctionne bien pour moi dans un simple Sub() avec juste votre code dans ce - essayez de déplacer votre code à un bouton événement clic et voir si elle échoue stalle.

Voici une variante qui peut nettoyer les choses un peu mieux:

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