Makro med fil-egenskaber

Meget mystisk, jeg har nogle filer, som IKKE har nogen vandret- eller lodret opløsning, som kan ses, når man højreklikker på en billedfil med musen --> vælge egenskaber -->  Dokumentinfo --> Advanceret) Her optræder en værdi på 0 dpi for "vandret opløsning" og ligeledes for "lodret opløsning"?

Jeg har tidligere fået lavet en rigtig god makro igennem eksperten, som netop henter nogle af disse informationer. Denne kan måske laves om til formålet:

Sub Mylist()
ListFiles Directory:="C:\Webfoto", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim r As Long, i As Long
    Dim P As IPictureDisp
    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"
    Cells(r, 4) = "Bredde/Højde"
    Range("A1:D1").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))
            Set P = LoadPicture(.FoundFiles(i))
            Cells(r, 4) = Int(P.Width / 26.4583) & "x" & Int(P.Height / 26.4583)
            r = r + 1
    Set P = Nothing
        Next i
    End With
End Sub