Private Type uFileInfo
    FilePathAndName As String    ' Dateiname inkl. Pfad
    FileDate As String    ' Datum als Zeichenkette ("yyyymmdd hhnnss)
    FileOwner As String    ' Besitzer der Datei
End Type
Dim FileInfo(10) As uFileInfo