Folderlist via VBA i Excel

Jeg har nedenstående makro, hvor jeg mangler en enkelt information i dataoutputtet: "Dimensioner" (f.eks. 300 x 250, bruges til billeder), og kan også ses i Windows-mapperne.

Da jeg har haft spørgsmålet hængende i en måneds tid uden respons har jeg hævet pointene til MAX. Jeg er direkte desperat for at dette problem løst.
________________________


Sub Mylist()
ListFiles Directory:="c:\first", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim r As Long, i As Long
       
    If Directory = "" Then Exit Sub
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
   
'  Insert headers
    r = 1
    Cells.ClearContents
    Cells(r, 1) = "FileName"
    Cells(r, 2) = "Size"
    Cells(r, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    r = r + 1

    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = SubDir
        .Execute
        For i = 1 To .FoundFiles.Count
            Cells(r, 1) = .FoundFiles(i)
            Cells(r, 2) = FileLen(.FoundFiles(i))
            Cells(r, 3) = FileDateTime(.FoundFiles(i))
            r = r + 1
        Next i
    End With
End Sub