• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Автозагрузка документов

  • Автор темы AlexeyKO
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

AlexeyKO

Подскажите, пожалуйста, как реализовать процесс автозагрузки документов из каталога на рабочем месте в архив документов информационной базы.
 
A

AlexeyKO

архивом я обозвал хранилище моей информационной базы, это я так, на всякий.
 
A

Allexei

Используй ПодключитьОбработчикОжидания и проверку наличия файла документа
 
A

AlexeyKO

Используй ПодключитьОбработчикОжидания и проверку наличия файла документа
Мне надо не много не то, то что Вы описали судя по описанию выполняет:

Подключает вызов указанной процедуры глобального или общего модуля через определенный интервал времени. Вызов будет осуществляться только в "состоянии покоя", то есть в тот момент, когда программа не выполняет никаких действий.

а мне надо:

импорт файла с компа в хранилище сделать не проблема, что собственно и сделано, а вот сделать процесс импорта автоматическим, не выбирая тыкая каждый файл в отдельности, а сразу выбрал каталог и бац, все файлы импортировались, не знаю как.
 
A

AlexeyKO

Имею в виду указание пути к каталогу с документами на компьютере. Необходимо, чтобы при выборе каталога на машине все документы этого каталога целиком импортировались в хранилище инф.базы. По одному файлу каждый раз тыкать напряжно. Что-то прочитал про "маску", но так и не понял как это можно сюда приклеить.
 
Д

Дайнеко

Надо получить список файлов, а потом каждый импортировать.
в 7.7
Код:
		Файлы = СоздатьОбъект("СписокЗначений");
ИмяФайла = ФС.НайтиПервыйФайл(ИмяКаталога+ "*.txt");
Пока НЕ(ПустаяСтрока(ИмяФайла)=1) Цикл
Если НЕ(Прав(ИмяФайла,1) = ".") Тогда	// ссылка на родителя
Файлы.ДобавитьЗначение(ИмяФайла);
КонецЕсли;
ИмяФайла = ФС.НайтиСледующийФайл();
КонецЦикла;

в 8 еще проще
Код:
		Файлы = НайтиФайлы(ИмяКаталога, "*.txt");

А что такое маска, чур не скажу. Откройте книжку по MS DOS годов 80-х.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!