Dim sTemp() As String
Dim nCount As Long
Dim i As Long
Dim sData() As String
 
' Größe des Arrays
nCount = UBound(FileInfo)
ReDim sTemp(nCount)
 
' UDT-Array in String-Array umwandeln, wobei Datum zu Beginn steht
For i = 0 To nCount
  With FileInfo(i)
    sTemp(i) = .FileDate & vbTab & FilePathName & vbTab & FileOwner
  End With
Next i
 
' String-Array sortieren
QuickSort sTemp, 0, nCount
 
' String-Array zurück in UDT-Array konvertieren
For i = 0 To nCount
  sData = Split(sTemp, vbTab)
  With FileInfo(i)
    .FilePathName = sData(1)
    .FileDate = sData(0)
    .FileOwner = sData(2)
  End WIth
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de