ник: osmor
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) ' получаем коммент файла