[VB 2010]StartIndex

[AtzenDei]

Salve a tutti.
In questa mattinata mi sono applicato nello sviluppo con vb2010.Dopo aver scritto il codice
e sistemata la "grafica" ho eseguito il debug per provare il funzionamento del programma.

Ho notato che il programma non funziona correttamente e dopo aver premuto il bottone
mi si apre una finestra per segnalare un avviso.
Questo è quello che mi dice:

StartIndex non può essere minore di zero.

La riga del codice sarebbe questa:

FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"))

Invece questo è l'intero SUB:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*" 
OpenFileDialog1.ShowDialog() 
Dim FileName As String 
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\")) 
Dim DllFileName As String = FileName.Replace("\", "") 
Me.Dlls.Items.Add(DllFileName) 
End Sub

Chiedo cortesemente se c'è qualcuno disponibile a dirmi dove sbaglio.
Grazie

[U235]

ciao,
probabilmente clicchi su annulla all'apertura del filedialog, quindi il nomefile è vuoto...
se posso permettermi un consiglio :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim FileName As String
            FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\") + 1)
            Me.Dlls.Items.Add(FileName)
        End If
    End Sub

[AtzenDei]

Grazie mille U235, ora è del tutto funzionante
Al prossimo problema ahah

[U235]

Originariamente inviato da AtzenDei
Grazie mille U235, ora è del tutto funzionante
Al prossimo problema ahah

Figurati