ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Получить

Скорую 1С помощь

Получить

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 
      
ДиалогОткрытияФайла.Выбрать();

Файл = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);
Текст = "Файл: " + Файл.Имя;
Текст = Текст + Символы.ПС + "Расширение: " + Файл.Расширение;
Текст = Текст + Символы.ПС + "Полное имя: " + Файл.ПолноеИмя;
Текст = Текст + Символы.ПС + "Путь: " + Файл.Путь;
Текст = Текст + Символы.ПС + "Размер: " + Файл.Размер() + " байт";
Текст = Текст + ?(Файл.ПолучитьНевидимость(), Символы.ПС + "Невидимый. ", "");
Текст = Текст + ?(Файл.ПолучитьТолькоЧтение(), Символы.ПС + "Только чтение.", "");
Текст = Текст + Символы.ПС + "Последнее изменение: " + Файл.ПолучитьВремяИзменения();
Сообщить(Текст);


Код 1C v 7.x
 Сообщить("ИНФОРМАЦИЯ О ОТКРЫТОМ ФАЙЛЕ!","I");
      
Сообщить("Путь к открытому файлу - " + папк + файл);
ИмяВыбрФайла=папк+файл;
ФС.АтрибутыФайла(ИмяВыбрФайла, A, B, C, D, E, F);
сообщить("Размер Файла - "+A);
сообщить("Количество записей - "+НомС + " , Количество полей - "+КолП ,"!");
сообщить("Время Создания - " + C);
сообщить("Время Последннго Доступа - " + D);
сообщить("Время Последней Записи - " + E);
сообщить("Расширенное Имя Файла - "+ F);


Информация взята с сайта http://helpf.pro


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.