The code in #71 rewritten.

Reduce the amount of variables to a minimum.
Use Arrays to read data, to store calculated/adapted data, and to write them in 1 movement into the workbook.
Reduce the interaction with the workbook to: reading once, writing once.

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion.Resize(, 9)                            '     reading
    
  With CreateObject("scripting.filesystemobject")
    For j = 1 To UBound(sn)
      With .getfolder(sn(j, 1))
        For jj = 2 To UBound(sn, 2)
          sn(j, jj) = Choose(jj, "", .Path, .Drive, .Name, .Type, .datecreated, .datelastmodified, .Size, .Type)
        Next
      End With
    Next
  End With
    
  Sheet1.Cells(1).CurrentRegion.Resize(, 9) = sn                           '      writing
End Sub