'1. Перечисление файлов

'Задание переменных
Dim i As Integer
Dim oFSO As Object
Dim oFolder As Object
Dim objFile As Object
Dim adres As String

'Текстовое окно - "Адрес папки"
adres = Application.InputBox(prompt:="Введите адрес папки", Title:="Адрес папки")

'Создание заголовков
Cells(1, 1) = "Имя файла"
Cells(1, 2) = "Дата съемки"
Cells(1, 3) = "Полный адрес файла"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(adres)

'Перечисление файлов и запись их в эксель
'Создание цикла
For Each objFile In oFolder.Files
Cells(i + 2, 1) = objFile.name
Cells(i + 2, 3) = adres
i = i + 1
Next objFile

'2. Записать только определенный параметр

Dim ns As Object
Dim cicl As Integer
Dim n As Integer
Dim adres1
Dim name
Dim kol
kol = Cells(Rows.Count, 1).End(xlUp).Row

For cicl = 2 To kol
adres1 = Cells(cicl, 3)
name = Cells(cicl, 1)
Set ns = CreateObject("Shell.Application").Namespace(adres1)
Cells(cicl, 2) = ns.GetDetailsOf(ns.ParseName(name), 12)
Set ns = Nothing
Range("b:b").NumberFormat = "yyyy.mm.dd hh:mm"
Next

'Автоформатирование ширины столбцов
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select