имеется ввиду сводка которая видна в Windows или в ACCESS ?

Set objShell = CreateObject("Shell.Application") ' получаем Shell
Set objFolder = objShell.Namespace("c:\test\") ' указываем папку где лежат файлы
Debug.Print objFolder.GetDetailsOf(objFolder.ParseName("UNITO.mdb"), 8) ' Владелец
Debug.Print objFolder.GetDetailsOf(objFolder.ParseName("UNITO.mdb"), 14) ' получаем коммент файла

А можно ли записать или заменить находящиеся там значения

а нужно ли как то закрывать shell а то я создал форму все впринципе работает но почемуто убивается основная форма и войти я могу только с shift enter непонимаю

Все разобрался нельзя писать
Me.list.RowSource = objFolder.GetDetailsOf(objFolder.ParseName("1.txt"), -1) ' получаем -1 - все подряд
'0 - имя
'1 - размер файла
'2 - тип
'3 - изменен
'4 - создан
'5 - открыт
'6 - атрибуты
'7 - неонятно
'8 - владелец
'9 - Автор
'10 - Название
'11 - тема
'12 - категория
'13 -
'14 - коментарий