#language PascalScript //Мнемокод скрипта: Список_файлов_получить Var Ошибка_Код:integer; Файлы_Список:TStrings; BEGIN Ошибка_Код:=0; //--------------------------------------- //Возвращаемые значения (к Актору-1) //Переменные FS Результат_Выполнения:=''; //--------------------------------------- //--------------------------------------- //Входные данные (от Актора-1) //Константы FS //Маска_файлов - заданная папка должна существовать //--------------------------------------- if trim(Маска_файлов)<>'' then begin Файлы_Список := TStringList.Create; TRY Файлы_Список_Получить( Файлы_Список, trim(Маска_файлов), true ); Файлы_Список.Insert(0,'Ok'); //Возвращаемое значение Результат_Выполнения:=Файлы_Список.Text; FINALLY Файлы_Список.Free; Файлы_Список:=nil; END; end else begin Ошибка_Код:=1; //Возвращаемое значение Результат_Выполнения:='Ошибка! Маска задана НЕ корректно'; end; END.