Dim di As DirectoryInfo = New DirectoryInfo(Me.txtPercorso.Text)
            For Each fi In di.GetFiles("*.csv", SearchOption.AllDirectories) 'Cerco il tipo di file e li cerco anche nelle sotto directory
                Me.ListBox.Items.Add(fi)
            Next