Ich habe 20 Ordner. Ich möchte in die 10 Ordner mit den wenigsten Dateien etwas hineinkopieren. Ich habe schon alle Ordner zählen gelassen und habe die anzahl der Dateien in ein Array geschrieben. Mein Problem ist jetzt wie kann ich das Array sortieren?
VB.NET-Quellcode
- Dim MyData(0 To 19, 0 To 1) As Integer
- Dim datei As String, anzahl As Integer
- For iv As Integer = 1 To 20
- datei = Dir(sAppPath & "\" & iv & "\*.*")
- anzahl = 0
- While datei <> ""
- anzahl = anzahl + 1
- datei = Dir()
- End While
- Console.WriteLine(anzahl)
- MyData(iv - 1, 0) = iv
- MyData(iv - 1, 1) = anzahl
- Next