Macht es doch nicht alles soviel komplizierter, bei so vielen Möglichkeiten müsste sie ja an mehreren Fronten gleichzeitig ändern
Ich versuche mal die Gedankengänge hier nach Arbeitsaufwand zu ordnen:
1. Mit FindFirst/FindNext/FindClose auch Order mit auflisten.
2. ListView1.Items.BeginUpdate vor allem und ListView1.Items.EndUpdate nach allem verwenden verkürzt die Zeit, die das Listview zum Aufbau braucht, als ersten Schritt.
3. Zweiter Beschleunigungsschritt wäre, das ListView virtuell zu machen, also ListView1.OwnerData := true, dann jeweils ListView1.Items.Count := AnzahlDateienUndOrdner, und in OnData jeweils zu füllen; Quelle wie genannt ein z.B. ein array of record, ganz komfortabel eine TCollection (Topic #6 von Dezipaitor).
4. Neue Komponente TShellListView installieren und verwenden (#7 von Hawkeye219).
5. TVirtualStringTree komplett selber handhaben (#4 von mkinzler).