helpf.pro
Регистрация
 0 
Распечатать

1С 7.x : Как Получить Атрибуты файла

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

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


Код 1C v 7.x
 Сообщить("ИНФОРМАЦИЯ О ОТКРЫТОМ ФАЙЛЕ!","I");
Сообщить("Путь к открытому файлу - " + папк + файл);
ИмяВыбрФайла=папк+файл;
ФС.АтрибутыФайла(ИмяВыбрФайла, A, B, C, D, E, F);
сообщить("Размер Файла - "+A);
сообщить("Количество записей - "+НомС + " , Количество полей - "+КолП ,"!");
сообщить("Время Создания - " + C);
сообщить("Время Последннго Доступа - " + D);
сообщить("Время Последней Записи - " + E);
сообщить("Расширенное Имя Файла - "+ F);
Разместил:   Версии: | 7.x | 8.x | 8.2 УП |  Дата:   Прочитано: 14923
 0 
Распечатать
Возможно, вас также заинтересует
Microsift Visual C++ Runtime Library Program ...1cv77s.exe abnormal program termination 0
При запуске 1С 7.7 выдает сообщение: Microsift Visual C++ Runtime Library Program C:Program Files1Cv77BIN1cv77s.exe abnormal program termination Вариант 1. Обычно это происходит, когда повреждается файл регистрации. Точнее, когда не дописывает
Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка 0
Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов Процедура...
Вставьте диск ИТС в дисковод и повторите операцию 0
найти строку и закомментировать: // проверка наличия диска ИТС Делт = КодСимв("Z")-КодСимв("A")+1; СтрокаИТС = Инфо.ПроверитьИмяФайла("1"); // Если ПустоеЗначение(СтрокаИТС)=1 Тогда // Сообщить("Вставьте диск ИТС в дисковод и...
Вывод картинки (изображения) на печать, в макет (табличный документ) 15
// 1-й вариант //Как вывести картинку в табличный документ? ТабДок = Новый ТабличныйДокумент; Макет = ОбработкаОбъект.ПолучитьМакет(" Макет" ); ОбластьКартинки = Макет.ПолучитьОбласть(" ОбластьСКартинкой" ); Картинка =...
Выгрузка / Загрузка данных посредством DBF файлов? 1
DBF-файл – это файл, в котором данные хранятся в виде таблицы (Database format). Работа с этими файлами происходит по принципу курсора, т.е. по одной строке. Для работы с DBF-файлами существует тип данных XBase. Несмотря на то, что...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.