Folderlist i Excel m/stier

Jeg har tidligere fået hjælp til denne makro, nu har jeg lige et par rettelser. "Dimensioner" skal tilføjes (f.eks. 300 x 250, bruges til billeder) og så skal jeg have den fulde sti med (c:\goddag.txt)
________________________


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