[VB.NET] Caricare i nomi dei file di una directory in un controllo ListBox

[Gossip]

Ho risolto così:

    Private Function ListaFiles(ByVal Cartella As String, ByVal Estensione As String) As String()

        Dim i As Integer
        Dim n As String
        Dim f() As String = System.IO.Directory.GetFiles(Cartella, Estensione)


        'restituisce un array contenente i nomi dei file con estensione escluso il percorso
        For i = 0 To f.Length - 1

            f(i) = f(i).Substring(f(i).LastIndexOf("\") + 1)

        Next


        'elimina l'estensione ai nomi dei file
        For i = 0 To f.Length - 1

            n = f(i).LastIndexOf(".")

            'se minore di 0 vuol dire che c'è un file senza estensione
            'senza ciclo condizionale restituisce un eccezione
            If n > 0 Then

                'elimina i caratteri a partire dall'ultimo punto
                f(i) = f(i).Remove(n)

            End If

        Next

        Return f

    End Function

Così invece viene visualizzato l'array nella listbox:

        ListBox1.Items.AddRange(ListaFiles("C:\", "*.jpg"))