Function Einlesen() As String()
        Dim Untouched As Boolean
        Dim TmpValue As String
        Dim I As Integer
        Dim ArrLaenge As Integer
 
        dateiliste = Directory.GetFiles(verzeichnis, "*.*")
        ArrLaenge = dateiliste.Length - 1
        Do
            Untouched = True
            For I = 0 To ArrLaenge - 1
                If File.GetCreationTime(dateiliste(I)) > _
                  File.GetCreationTime(dateiliste(I + 1)) Then
                    TmpValue = dateiliste(I)
                    dateiliste(I) = dateiliste(I + 1)
                    dateiliste(I + 1) = TmpValue
                    Untouched = False
                End If
            Next I
        Loop Until Untouched
        Return dateiliste
    End Function

Function Einlesen(verzeichnis As String) As String()
    Dim di As New DirectoryInfo(verzeichnis)
 
    Dim dateiliste = From f In di.EnumerateFiles
                     Order By f.CreationTime
                     Select f.FullName
 
    Return dateiliste.ToArray
  End Function

Public Class cDateiListe
    Private datanzahl As Integer
    Private dateiliste() As String
    Private verzeichnis As String
    Private verzeichnis_Laenge As Byte
    Private datName As String

Function Einlesen() As String()
        Dim Untouched As Boolean
        Dim TmpValue As String
        Dim I As Integer
        Dim ArrLaenge As Integer
 
        dateiliste = Directory.GetFiles(verzeichnis, "*.*")
        ArrLaenge = dateiliste.Length - 1
        Do
            Untouched = True
            For I = 0 To ArrLaenge - 1
                If File.GetCreationTime(dateiliste(I)) > _
                  File.GetCreationTime(dateiliste(I + 1)) Then
                    TmpValue = dateiliste(I)
                    dateiliste(I) = dateiliste(I + 1)
                    dateiliste(I + 1) = TmpValue
                    Untouched = False
                End If
            Next I
        Loop Until Untouched
        Return dateiliste
    End Function

Public Class cDateiliste
 
    'Interne Datenhaltung
    Private _dateiliste() As String
    Private _verzeichnis As String
 
    '??????????
    'Private datanzahl As Integer
    'Private verzeichnis_Laenge As Byte
    'Private datName As String
 
 
    Public Property Verzeichnis As String
        Set(value As String)
            _verzeichnis = value
            Einlesen()
        End Set
        Get
            Return _verzeichnis
        End Get
    End Property
 
 
    'evt. Friend/Private 
    Public ReadOnly Property Dateiliste As String()
        Get
            Return _dateiliste
        End Get
    End Property
 
 
    Private Sub Einlesen()
 
        _dateiliste = (From fi As IO.FileInfo In
              New IO.DirectoryInfo(_verzeichnis).EnumerateFiles
                  Order By fi.CreationTime Ascending
                  Select fi.FullName).ToArray
    End Sub
 
End Class