Список файлов в папке

[poul_and]

Мне нужно запустить код обработки для каждого файла в конкретной папке и обработанные перекинуть в другую.
Как получить именя файлов?
Можно конечно использовать DIR >list.txt и вытаскивать имена оттуда, но может попроще способ есть?

[Yoil]

таблица file.

[poul_and]

Цитата:

Сообщение от Дуд

таблица file.

Я дико извиняюсь, но как это понять? (Такой таблицы у нас нету в базе)

[apanko]

Есть.
Создайте форму и укажите в качестве источника таблицу 2000000022.
Работа с файлами

[poul_and]

спасибо - разобрался

[del_negrozzz]

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

[Sid Vicious]

Цитата:

Сообщение от del_negrozzz

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

Проверил. Показывает. (Вид\Refresh).
Забавная оказывается штука, она к тому же показывает и сетевые ресурсы компьютера по фильтру \\Hostname

[raniel]

Добрый день всем. Решил не создавать тему а присоединиться. Надеюсь автор будет не против.

Цитата:

Цитата:

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

Проверил. Показывает. (Вид\Refresh).
Забавная оказывается штука, она к тому же показывает и сетевые ресурсы компьютера по фильтру \\Hostname

А вот как программно делать Refresh? Передо мной стоит задача мониторить папки на наличие новый файлов в автоматическом режиме. И как бы нажимать Refresh некому. Хотя у меня этот пункт меню и вручную не активен. Активен бывает когда я фокусируюсь на Object Disigner. И толку от этого Refres-а ноль.
Как выйти из ситуации?
Спасибо!

[InTacto]

Откровенно говоря не очень понял за какой refresh тут гутарили, но обновить список файлов можно повторным запросом записей (findfirst,findset). В автоматическом режиме это может делать Application Server, если напишите соответствующий отчет или кодеюнит.

[raniel]

Цитата:

Сообщение от InTacto

Откровенно говоря не очень понял за какой refresh тут гутарили, но обновить список файлов можно повторным запросом записей (findfirst,findset). В автоматическом режиме это может делать Application Server, если напишите соответствующий отчет или кодеюнит.

В том и дело. Что у меня через определённые интервалы времени запускается обработка....которая ищет новые файлы. Естественно я делаю RESET. Заново вешаю фильтры и перебираю файлы. Проблема в том, что чтоб клиент увидел новый файл который появился после запуска, его нужно перезапустить. Что совсем меня не устраивает. Я даже пытаюсь путь другой забивать и потом снова нужный прописываь...

_File.RESET;
_File.SETFILTER(Path,'C:\');
IF _File.FIND('-') THEN;

_File.RESET;
_File.SETFILTER(Path,_Path);
_File.SETFILTER("Is a file",FORMAT(TRUE));
IF _File.FIND('-') THEN
...
UNTIL _File.NEXT = 0;
REPEAT

[InTacto]

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

[max_hl_imported]

Спасибо mibuso, автор не я.

[code]
[Variables]
Name DataType Subtype Length
MSS Automation 'Microsoft Shell Controls And Automation'.Shell
MSFl Automation 'Microsoft Shell Controls And Automation'.Folder3
MSFIs Automation 'Microsoft Shell Controls And Automation'.FolderItems3
MSFi Automation 'Microsoft Shell Controls And Automation'.FolderItem
i Integer

CREATE(MSS);

MSFl := MSS.Namespace('E:\temp');
IF ISCLEAR(MSFl) THEN
  EXIT;

MSFIs := MSFl.Items;
IF NOT ISCLEAR(MSFIs) THEN
  FOR i := 1 TO MSFIs.Count DO BEGIN
    MSFI := MSFIs.Item(i);
    IF NOT ISCLEAR(MSFI) THEN BEGIN
      IF NOT MSFI.IsFolder THEN
        MESSAGE(MSFI.Name);

      CLEAR(MSFI);
    END;
  END;

Через WSH пробовал, не могу добиться извленения файла из коллекции по номеру.
Ошибка как у ТС на mibuso, решение через промежуточный скрипт тоже не отработало..

[raniel]

Цитата:

Сообщение от InTacto

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

Дык она у меня как раз в отдельном кодеюните и обращаюсь к ней из формы. Такое ощущение что какие-то настройки должны быть.... типа не кешировать таблицу FILE. И главное тут так всё просто, что даже манёвра для ошибки нет....чтоб потом её искать

[Constantine_imported]

Shaitan-Babay, попробуйте чуть по другому код написать.

recFile.RESET;
recFile.SETRANGE(Path, 'c:\for_exchange\');
recFile.SETRANGE("Is a file", TRUE);
IF recFile.FINDFIRST THEN
REPEAT
  i += 1;
UNTIL recFile.NEXT = 0;

Отличия только в том, что используется SETRANGE вместо SETFILTER, и FINDFIRST вместо FIND(-). Еще у меня стояло вначале кода CLEAR(recFile), но работает и без этого.
Я вынес этот кусочек в отдельную функцию в кодеюните и запускал с кнопки на форме. Все работает и возвращает количество файлов в папке, при повторном запуске, даже не закрывая формы, все отрабатывает как надо. Может у вас при повторном прогоне фильтры накладываются не такие, например в конце пути нет слэша?

[alexb_imported]

Цитата:

Сообщение от Shaitan-Babay

Такое ощущение что какие-то настройки должны быть.... типа не кешировать таблицу FILE.

Попробуйте перед запуском цикла (т.е. до того когда делаете FIND('-') для таблицы file) прописать строчку:

SELECTLATESTVERSION;

[raniel]

Цитата:

Сообщение от Constantine

Shaitan-Babay, попробуйте чуть по другому код написать.

recFile.RESET;
recFile.SETRANGE(Path, 'c:\for_exchange\');
recFile.SETRANGE("Is a file", TRUE);
IF recFile.FINDFIRST THEN
REPEAT
  i += 1;
UNTIL recFile.NEXT = 0;

Отличия только в том, что используется SETRANGE вместо SETFILTER, и FINDFIRST вместо FIND(-). Еще у меня стояло вначале кода CLEAR(recFile), но работает и без этого.
Я вынес этот кусочек в отдельную функцию в кодеюните и запускал с кнопки на форме. Все работает и возвращает количество файлов в папке, при повторном запуске, даже не закрывая формы, все отрабатывает как надо. Может у вас при повторном прогоне фильтры накладываются не такие, например в конце пути нет слэша?

Цитата:

Сообщение от AlexB

Цитата:

Сообщение от Shaitan-Babay

Такое ощущение что какие-то настройки должны быть.... типа не кешировать таблицу FILE.

Попробуйте перед запуском цикла (т.е. до того когда делаете FIND('-') для таблицы file) прописать строчку:

SELECTLATESTVERSION;

К сожалению, ни то ни другое результат не дало />
Может всё таки есть какие-то настройки Клиента?
Кстати заметил такую вещь. Что если форму закрыть(а может это не обязательно)....подождать(больше 10 минут точно) и снова запустить и нажать кнопку запускающую функцию то система увидит новый файл... Буду дальше экспериментировать.

[raniel]

Можно меня поздравить! Проблему решил. Всё оказалось просто. Клиент работает под Win7, и если клиента запустить под правами админа то всё отлично видит все перемещения файлов.