Public Structure FileData
        Public Name As String
        Public Size As Long
        '...
    End Structure
 
    Dim fds As New List(Of FileData)

        Dim di As New IO.DirectoryInfo("C:\")
        Dim fd As FileData
        For Each fi As IO.FileInfo In di.GetFiles
            fd.Name = fi.Name
            fd.Size = fi.Length
            ' ...
            fds.Add(fd)
        Next
 
        For Each fd1 As FileData In fds
            Debug.WriteLine(fd1.Name & " " & fd1.Size)
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist