Как Получить Атрибуты файла

 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 

ДиалогОткрытияФайла.Выбрать(); 



Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла); 

Текст = "Файл: " + Файл.Имя; 

Текст = Текст + Символы.ПС + "Расширение: " + Файл.Расширение; 

Текст = Текст + Символы.ПС + "Полное имя: " + Файл.ПолноеИмя; 

Текст = Текст + Символы.ПС + "Путь: " + Файл.Путь; 

Текст = Текст + Символы.ПС + "Размер: " + Файл.Размер() + " байт"; 

Текст = Текст + ?(Файл.ПолучитьНевидимость(), Символы.ПС + "Невидимый. ", ""); 

Текст = Текст + ?(Файл.ПолучитьТолькоЧтение(), Символы.ПС + "Только чтение.", ""); 

Текст = Текст + Символы.ПС + "Последнее изменение: " + Файл.ПолучитьВремяИзменения(); 

Сообщить(Текст);   

 Сообщить("ИНФОРМАЦИЯ О ОТКРЫТОМ ФАЙЛЕ!","I");

Сообщить("Путь к открытому файлу - " + папк + файл);

ИмяВыбрФайла=папк+файл;

ФС.АтрибутыФайла(ИмяВыбрФайла, A, B, C, D, E, F);

сообщить("Размер Файла - "+A);

сообщить("Количество записей - "+НомС + " , Количество полей - "+КолП ,"!");

сообщить("Время Создания - " + C);

сообщить("Время Последннго Доступа - " + D);

сообщить("Время Последней Записи - " + E);

сообщить("Расширенное Имя Файла - "+ F);