Private Type uFileInfo
  Filename As String
  FileSize As Currency
  FileDate As Date
End Type
 
Dim FileInfo() As uFileInfo

ReDim FileInfo(nDim)
 
With FileInfo(Index)
  .Filename = "..."
  .FileSize = FileLen...)
  .FileDate = FileDateTime(...)
End With

ReDim Preserve FileInfo(nDimNeu)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de