1С 8.3 Получить свойства файла
Данные > Примеры кода 1С > 1С 8.3 Файлы, каталоги
Перейти в раздел примеры кода 1С 8.3:
Узнать свойства файла в 1С 8.3:
Процедура ПолучитьСвойстваФайла() Экспорт
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформы = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформы = ТипПлатформы.Windows_x86
Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
НовыйФайл = Новый Файл("ИмяФайла");
Оболочка = Новый COMОбъект("Shell.Application");
Имена = Оболочка.NameSpace(НовыйФайл.Путь);
Парсинг = Имена.ParseName(Сред(НовыйФайл.ПолноеИмя, СтрНайти(НовыйФайл.ПолноеИмя, "\", НаправлениеПоиска.СКонца) + 1));
Для Счетчик = -100 По 500 Цикл
Попытка
Сообщить(Счетчик + " |" + Имена.GetDetailsOf(Неопределено, Счетчик) + " |" + Имена.GetDetailsOf(Парсинг, Счетчик));
Исключение
КонецПопытки;
КонецЦикла;
Иначе
//Сообщить("Данная функция поддерживается только в ОС Windows");
КонецЕсли;
КонецПроцедуры
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформы = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформы = ТипПлатформы.Windows_x86
Или ТипПлатформы = ТипПлатформы.Windows_x86_64 Тогда
НовыйФайл = Новый Файл("ИмяФайла");
Оболочка = Новый COMОбъект("Shell.Application");
Имена = Оболочка.NameSpace(НовыйФайл.Путь);
Парсинг = Имена.ParseName(Сред(НовыйФайл.ПолноеИмя, СтрНайти(НовыйФайл.ПолноеИмя, "\", НаправлениеПоиска.СКонца) + 1));
Для Счетчик = -100 По 500 Цикл
Попытка
Сообщить(Счетчик + " |" + Имена.GetDetailsOf(Неопределено, Счетчик) + " |" + Имена.GetDetailsOf(Парсинг, Счетчик));
Исключение
КонецПопытки;
КонецЦикла;
Иначе
//Сообщить("Данная функция поддерживается только в ОС Windows");
КонецЕсли;
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник