Каталог не найден в веб-серверном варианте
Добрый день.
Базу подключили к веб-серверу и обработка перестала видеть каталог.
Изначально код был такой:
Переделала, чтобы скопировать файл на сервер и его обрабатывать, но толку ноль, ошибка не ушла. Код стал таким:
В чем причина? Где ошибка?? Либо может нужно использовать совершенно другой способ.. Подскажите, пожалуйста.
Базу подключили к веб-серверу и обработка перестала видеть каталог.
Изначально код был такой:
ВыбранныйФайл = Новый Файл(Объект.ПутьКФайлу);
Если ВРег(ВыбранныйФайл.Расширение) = ".ZIP" Тогда
// это архивный файл - нужно разархивировать во врем. папку и потом удилить
// грузим все файлы из архива с разширением *.hml
ИмяФайла = ПолучитьИмяФайлаИзПолногоПути(Объект.ПутьКФайлу);
ПозТочки = Найти(ИмяФайла,".");
ИмяФайла = Лев(ИмяФайла,ПозТочки-1);
АрхивZIP = Новый ЧтениеZipФайла(Объект.ПутьКФайлу);
Сообщить("шаг1");
ПутьКВременномуКаталогу = КаталогВременныхФайлов() + ИмяФайла + "\";
Сообщить("шаг2");
АрхивZIP.ИзвлечьВсе(ПутьКВременномуКаталогу);
Сообщить("шаг3");
МассивФайлов = НайтиФайлы(ПутьКВременномуКаталогу,"*",Истина);
Для Каждого ФайлИзМассива Из МассивФайлов Цикл
Если Не ФайлИзМассива.ЭтоКаталог() Тогда
ЗагрузитьФайл(ФайлИзМассива.ПолноеИмя);
КонецЕсли;
КонецЦикла;
// удаляем врем. файлы
УдалитьФайлы(ПутьКВременномуКаталогу);
Сообщить("Загрузка доходов завершена!!!!!");
Иначе
// нифига не делаем.. непонятный файл
КонецЕсли;
ПоказатьПеределала, чтобы скопировать файл на сервер и его обрабатывать, но толку ноль, ошибка не ушла. Код стал таким:
Если ЗначениеЗаполнено(Объект.ПутьКФайлу) Тогда
ДвоичныеДанныеФайла = Новый ДвоичныеДанные(Объект.ПутьКФайлу);
АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла);
АдресВремФайла = "";
ИмяВременогоФайла = ПолучитьИмяВременногоФайла("zip");
ПутьКФайлуПриемнику = ИмяВременогоФайла;
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(АдресФайла);
ДвоичныеДанныеФайла.Записать(Строка(ПутьКФайлуПриемнику));
ИмяФайла = ПолучитьИмяФайлаИзПолногоПути(ПутьКФайлуПриемнику);
ПозТочки = Найти(ИмяФайла,".");
ИмяФайла = Лев(ИмяФайла,ПозТочки-1);
АрхивZIP = Новый ЧтениеZipФайла(ПутьКФайлуПриемнику);
ПутьКВременномуКаталогу = КаталогВременныхФайлов() + ИмяФайла + "\";
АрхивZIP.ИзвлечьВсе(ПутьКВременномуКаталогу);
МассивФайлов = НайтиФайлы(ПутьКВременномуКаталогу,"*",Истина);
Для Каждого ФайлИзМассива Из МассивФайлов Цикл
Если Не ФайлИзМассива.ЭтоКаталог() Тогда
ЗагрузитьФайл(ФайлИзМассива.ПолноеИмя);
КонецЕсли;
КонецЦикла;
// удаляем врем. файлы
УдалитьФайлы(ПутьКВременномуКаталогу);
Сообщить("Загрузка доходов завершена!!!!!");
Иначе
Сообщить("Не выбран файл для загрузки!");
КонецЕсли;
ПоказатьВ чем причина? Где ошибка?? Либо может нужно использовать совершенно другой способ.. Подскажите, пожалуйста.
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот