Версия для печати темы (https://pro1c.org.ua/index.php?s=54bb558e9870efd72be5a1bc8d81f884&showtopic=66858)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ Файловые атрибуты-присвоить дату

Автор: andrew76 28.12.21, 16:04

Добрый вечер !

Есть необходимость присваивать файлам - свою дату их создания.
Штатных средств для этого в 7.7 нет.
Поэтому (через Shell) :

Шел=СоздатьОбъект("Shell.Application");
Папка=Шел.NameSpace("c:\out\photo_\");
fil=папка_ф+ID_+".jpeg;
Файл=Папка.ParseName(fil);


При присвоении переменной Файл,вываливается ошибка :
{C:\11.ERT(893)}: Плохой тип переменной

Если переменной fil присваиваешь значение типа "c:\out\photo\1.jpg",то все работает,а вот динамически нет.
Кто с этим сталкивался в Shell ?


Автор: denis84 28.12.21, 16:34

andrew76 @ Сегодня, 16:04 * ,

Цитата(andrew76 @ 28.12.21, 16:04) *
fil=папка_ф+ID_+".jpeg;

А что такое папка_ф?
а через сообщить(fil), что покажет ?

Автор: andrew76 28.12.21, 17:22

denis84 @ Сегодня, 19:34 * ,

А что такое папка_ф?

папка_ф="c:\out\photo_\";


а через сообщить(fil), что покажет ?
c:\out\photo_\123456.jpeg;

Автор: andrew76 29.12.21, 8:53

andrew76 @ Вчера, 20:22 * ,

вот рабочий вариант.
тему можно закрывать.

Шел=СоздатьОбъект("Shell.Application");
Папка=Шел.NameSpace("c:\out\photo_\");
fil="";
fil=ID_+".jpeg";
Файл=Папка.ParseName(fil);
Д_Ф=Формат(ТекущаяДата(),"ДДДММГГГГ");
ДД_ф=Сред(Д_ф,4,2)+"/"+Лев(Д_ф,2)+"/"+Прав(Д_ф,4);
Файл.ModifyDate=(ДД_ф+" 01:00:00 AM");

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua