Option Explicit On 
Option Strict On
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim folder As String = "C:\tmp\test\"
 
        '// Ordnerinhalt:
        '// ------------------------
        'C:\tmp\test\15_7_2004xx.cvs
        'C:\tmp\test\15_7_2005xx.cvs
        'C:\tmp\test\16_7_2005xx.cvs
        'C:\tmp\test\17_7_2005xx.cvs
        'C:\tmp\test\20_7_2005xx.cvs
        '// ------------------------
 
        Dim files As New ArrayList
        Dim file As IO.FileInfo
        For Each f As String In IO.Directory.GetFiles(folder)
            file = New IO.FileInfo(f)
            Debug.WriteLine(file.FullName)
            If file.Extension.Equals(".cvs") Then
                files.Add(file)
            End If
        Next
 
        '// sortieren
        files.Sort(New MyComparer)
 
        '// Sortierung umkehren
        '// files.Reverse()
 
        '// Dateien sortiert (nach Datum) ausgeben
        For Each file In files
            Me.ListBox1.Items.Add(file.Name)
        Next
 
    End Sub
End Class
 
Public Class MyComparer
    Implements IComparer
 
    Dim reg As System.Text.RegularExpressions.Regex
    Dim mc As System.Text.RegularExpressions.MatchCollection
    Dim d, m, y As Integer
 
    Public Sub New()
        reg = New System.Text.RegularExpressions.Regex("\d+")
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
      Implements System.Collections.IComparer.Compare
        Dim fileA As IO.FileInfo = CType(x, IO.FileInfo)
        Dim fileB As IO.FileInfo = CType(y, IO.FileInfo)
        Dim dateA, dateB As Date
 
        '// FileA
        mc = reg.Matches(fileA.Name)
        d = CInt(mc(0).Value) '// day
        m = CInt(mc(1).Value) '// month
        Me.y = CInt(mc(2).Value) '// year
        dateA = New Date(Me.y, m, d)
 
        '// FileB
        mc = reg.Matches(fileB.Name)
        d = CInt(mc(0).Value) '// day
        m = CInt(mc(1).Value) '// month
        Me.y = CInt(mc(2).Value) '// year
        dateB = New Date(Me.y, m, d)
 
        If Date.op_LessThan(dateA, dateB) Then Return -1
        If Date.op_GreaterThan(dateA, dateB) Then Return 1
        Return 0
 
    End Function
End Class