Код |
---|
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 напишите путь к своей папке.