sort fileinfo

Dim pk3files() As FileInfo = dirinfo.GetFiles
Array.Sort(pk3files)

Det har jeg prøvet, men så generere den en fejl med icompare

Ah ja - FileInfo implementerer ikke IComparable.

Så bliver du nødt til at lave en:

Array.Sort(pk3files, MyFileInfoComparer)

hvor klassen MyFileInfoComparer implementerer IComparer (og derfor har
en Compare metode som sammenligner to FileInfo via deres Name property).

Array.Sort(pk3files, New MyFileInfoComparer)

Kan du hjælpe med klassen også?

5 minutter

Imports System
Imports System.Collections
Imports System.IO

Class TestClass
    Public Shared Sub Main(ByVal args As String())
        Dim di As DirectoryInfo = New DirectoryInfo("C:\")
        Dim fi As FileInfo() = di.GetFiles
        Dim i As Integer
        For i = 0 To (fi.Length - 1)
            Console.WriteLine(fi(i).Name)
        Next
        Array.Sort(fi, New FileInfoComparer)
        For i = 0 To (fi.Length - 1)
            Console.WriteLine(fi(i).Name)
        Next
    End Sub
End Class

Public Class FileInfoComparer
Implements IComparer
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        Return String.Compare(CType(x, FileInfo).Name, CType(y, FileInfo).Name)
    End Function
End Class

Men så vidt jeg kan se, så returnerer GetFiles allerede filerne sorteret.

Jeg er lige ved at prøve det. Med hensyn til at den selv skulle sortere så ja de første gange jeg prøvede stod de rigtigt, men da jeg slettede en fil og satte den tilbage i mappen igen, så kom den lige pludselig sidst.

ok har prøvet det nu, men den bliver ved med at smække min ene fil til sidst. den skulle ligge som nr 3 men kommer som nummer 9

På trods af at du kalder Array.Sort med din Comparer ?

ja, forstår det ikke helt, jeg kigger lige lidt mere og vender tilbage i eftermiddag, tak for hjælpen indtil videre, der skal nok komme point din vej :)

Hmm det ser ud til at virke nu. Slettede alt kode og begyndte for fra, og den virker uden den sorterig du skrev. Så du har ret i den gør det på filnavn, underligt det ikke virkede før. Tak for hjælpen :)