OpenFileDialog1.ShowDialog() Dim percorso As String = OpenFileDialog1.FileName Dim nomeFile As String = percorso.Substring(percorso.LastIndexOf("\") + 1)