Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 7.7 и ранее

v7: Присвоить файлу свою дату создания файла

v7: Присвоить файлу свою дату создания файла
Я
   andrew76
 
29.12.21 - 08:51
Добрый день !
Возникла необходимость присваивать файлам свою дату создания файлов.

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

Если указываешь один файл,то все работает,а если в файл подставляешь переменную с именем файла,
то вываливается ошибка-Плохой тип переменной

Кто-нибудь с таким сталкивался ?
   Volodja
 
1 - 29.12.21 - 09:10
Файл=Папка.ParseName("12.jpeg");
   andrew76
 
2 - 29.12.21 - 09:12
а если мне несколько десятков файлов приcвоить дату нужно ?
   ДенисЧ
 
3 - 29.12.21 - 09:14
(2) Сделай цикл.
И передавай в функцию строку, а не файл
   andrew76
 
4 - 29.12.21 - 09:16
а вот в цикле ошибка и вываливается
   andrew76
 
5 - 29.12.21 - 09:20
из цикла 

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

fil="";
fil=папка_ф+ID_+".jpeg";
Файл=Папка.ParseName(fil);
ошибка-Плохой тип переменной
   Volodja
 
6 - 29.12.21 - 09:22
fil -у присаивай имя файла без пути
   Volodja
 
7 - 29.12.21 - 09:24
(6) Через NameSpace ты определяешь каталог
А fil -у присваивай имя файла без пути
   andrew76
 
8 - 29.12.21 - 09:30
Спасибо Большое ! Получилось ! Всех с Наступающим !

Список тем форума
 
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс, 1996 г.
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.