| Код |
|---|
Sub FileDetails()
Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir: Set oDir = oShell.Namespace("c:\FOLDER")
i = 1
For Each sFile In oDir.Items
ActiveSheet.Cells(i, 1) = oDir.GetDetailsOf(sFile, -1)
i = i + 1
Next
End Sub |
Вместо c:\FOLDER напишите путь к своей папке.