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