Можно ли средствами 1С переименовать файл?
По теме из базы знаний
- 50+ советов для успешной сдачи 1С: Специалист по платформе
- Разработка и сценарное тестирование с Vanessa-ADD. Собственные шаги и библиотеки. Экспортные сценарии
- Электронная таблица средствами 1С (Версия 2.0)
- Модули интеграции с маркетплейсами (WILDBERRIES + ОЗОН + ЯНДЕКС МАРКЕТ+СБЕРМЕГАМАРКЕТ) по схеме FBS для УТ 11, КА 2, ERP 2, УНФ
- Как мы подружили "1С:Аналитику" и "Финансист". Практический опыт
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(1) ask001, Успешно работает:
ПереместитьФайл(ПутьКФайлу+"\temp.dbf", ПутьКФайлу+"\ScheduleInfo.dbf");
ПереместитьФайл(ПутьКФайлу+"\temp1.dbf", ПутьКФайлу+"\Amounts.dbf");
ПереместитьФайл(ПутьКФайлу+"\temp.dbf", ПутьКФайлу+"\ScheduleInfo.dbf");
ПереместитьФайл(ПутьКФайлу+"\temp1.dbf", ПутьКФайлу+"\Amounts.dbf");
Недавно разбирался на ПК и нужно было переименовать 781 элемент, общий размер 93,1 ГБ (100 006 030 242 байт).
Решил с помощью 1С это сделать.
У меня это, конечно же, в цикле и с переменными было )
Диск: Hitachi HDS721050CLA362 (довольно старый уже, не грузился по диспетчеру задач - максимум 10%; характеристики 120|116 MB/s Read|Write)
Процессор: Intel® Core™ i3-2120 CPU * 3.30GHz (грузился на 100%)
ОЗУ: неизвестно 8ГБ (без изменений по нагрузке)
Обработалось за 1 минуту и 14 секунд.
Думаю, кому-нибудь поможет)
Решил с помощью 1С это сделать.
Shell = Новый COMОбъект("Shell.Application");
Folder = Shell.NameSpace("C:\Папка\");
FolderItem = Folder.ParseName("Имя файла До.расширение");
FolderItem.Name = "Имя файла После.расширение";У меня это, конечно же, в цикле и с переменными было )
Диск: Hitachi HDS721050CLA362 (довольно старый уже, не грузился по диспетчеру задач - максимум 10%; характеристики 120|116 MB/s Read|Write)
Процессор: Intel® Core™ i3-2120 CPU * 3.30GHz (грузился на 100%)
ОЗУ: неизвестно 8ГБ (без изменений по нагрузке)
Обработалось за 1 минуту и 14 секунд.
Думаю, кому-нибудь поможет)
ФайлВФорматеXLS = ПолучитьИмяВременногоФайла("xls");
ТабличныйДокумент.Записать(ФайлВФорматеXLS, ТипФайлаТабличногоДокумента.XLS);
ИмяФайла = ФайлВФорматеXLS;
ВыбФайл = Новый Файл(ИмяФайла);
НазваниеКаталога = Лев(ИмяФайла,СтрНайти(ИмяФайла,"v8")-1) ;
дл = СтрДлина(ИмяФайла) - СтрНайти(ИмяФайла,"v8",НаправлениеПоиска.СКонца)+1;
НазваниеФайла = Прав(ИмяФайла,дл);// 15
ПутьНОвый = СтрЗаменить(ИмяФайла,НазваниеФайла, "УведомлениеОтпуск_"+Сотрудник)+".xls";
ПереместитьФайл(ИмяФайла, ПутьНОвый);
ФайлВФорматеXLS = ПутьНОвый;
ТабличныйДокумент.Записать(ФайлВФорматеXLS, ТипФайлаТабличногоДокумента.XLS);
ИмяФайла = ФайлВФорматеXLS;
ВыбФайл = Новый Файл(ИмяФайла);
НазваниеКаталога = Лев(ИмяФайла,СтрНайти(ИмяФайла,"v8")-1) ;
дл = СтрДлина(ИмяФайла) - СтрНайти(ИмяФайла,"v8",НаправлениеПоиска.СКонца)+1;
НазваниеФайла = Прав(ИмяФайла,дл);// 15
ПутьНОвый = СтрЗаменить(ИмяФайла,НазваниеФайла, "УведомлениеОтпуск_"+Сотрудник)+".xls";
ПереместитьФайл(ИмяФайла, ПутьНОвый);
ФайлВФорматеXLS = ПутьНОвый;