Dim di As New IO.DirectoryInfo(pfad)
        Dim files = From file In di.GetFiles() Order By CInt(file.Name.Split( _
          ".")(0)) Select file.Name
        ListBox1.DataSource = files.ToList()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist