Доброго времени суток!
из-за чего может быть такая картина? при запуске кода дебагером поиск файла по маске отрабатывает корректно ll_findfile = FindFirstFileA( ls_filefullpath, str_finddata ) и возвращает значение больше 0. А если запускаешь через run то ll_findfile = FindFirstFileA( ls_filefullpath, str_finddata ) возвращает -1 и пишет в лог что Файл по маске не найден.

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

ls_filefullpath = as_in_path + '\' + as_mask

MessageBox('ls_filefullpath',ls_filefullpath)

ll_findfile = FindFirstFileA( ls_filefullpath, str_finddata )

MessageBox('ll_findfile',String(ll_findfile))

А как эту проблему решить? подскажите пожалуйста

если я в нужную мне папку C:\TEST_FILE вручную копирую zip файл
а потом запускаю проект который должен этот файл найти и распаковать, то все работает отлично
Но если я в коде прописываю взять этот файл с ftp и положить в нужную мне папку C:\TEST_FILE

TRY
// Загрузка zip архивов
wso_c = CREATE Oleobject
wso_c.ConnectToNewObject( "WScript.Shell")

IF isValid(wso_c) THEN
ll_ret = wso_c.Run( "get_file.bat", NORMAL, WAIT )
ELSE
ll_ret = -1
END IF

CATCH ( RunTimeError e1 )
e1.getMessage()
FINALLY
DESTROY(wso_c)
garbageCollect()
END TRY

а потом его распаковать, то все файл уже найти не может.

Version 2017 R3 Build 1880

А как вопрос с правами решить? может как то в коде дать права на папку

А какие именно права нужно дать пользователю, под которым запускается программа, на эту папку?
Типа Full control?

Дала права пользователю под которым программа запускается. Права Full control. Не помогло

можете написать какие именно права и как это сделать? пожалуйста

function long FindFirstFileA (ref string filename, ref os_finddata findfiledata) library "KERNEL32.DLL" alias for "FindFirstFileA;Ansi"
Скачивается файл без проблем. Прблема именно в том что потом когда нужно его распаковать, программа его не находит.
Вот код который сначала скачивает zip файл с ftp а потом его распаковывает
OleObject wso_c
OleObject wso_uz

SetNull( ls_file_path )
SetNull( ls_unzip_command )
SetNull( ls_filename )
SetNull( ls_chcp_command )

SetPointer(HourGlass!)

ls_chcp_command = 'chcp 866'

TRY
// Загрузка zip архивов
wso_c = CREATE Oleobject
wso_c.ConnectToNewObject( "WScript.Shell")

IF isValid(wso_c) THEN
ll_ret = wso_c.Run( "get_file.bat", NORMAL, WAIT )
ELSE
ll_ret = -1
END IF

CATCH ( RunTimeError e1 )
e1.getMessage()
FINALLY
DESTROY(wso_c)
garbageCollect()
END TRY

ls_zipper_path = 'C:\7z.exe'

ls_file_path = is_dir_impsc + '\'
ls_file_path2 = is_dir_impsc

ls_mask = 'test_' + ls_date+'*'

ls_file = uf_find_file( ls_file_path2, ls_mask )

ls_filename = ls_file_path + ls_file

IF NOT( IsNull( ls_zipper_path ) ) AND NOT( IsNull( ls_filename ) ) THEN
TRY
wso_uz = CREATE Oleobject
wso_uz.ConnectToNewObject( "WScript.Shell")

ls_unzip_command = '"' + ls_zipper_path + '"' + ' x ' + '"' + ls_filename + '"' + ' -y -o"' + ls_file_path
IF isValid(wso_uz) THEN
ll_ret = wso_uz.run( ls_unzip_command, 0, TRUE )
ELSE
ll_ret = -1
END IF

CATCH ( RunTimeError e2 )
e2.getMessage()
FINALLY
DESTROY(wso_uz)
garbageCollect()
END TRY
END IF

Если например я кусок кода который копирует zip файл с ftp закрмментирую, файл туда в папку положу вручную и запущу прогу, то все прекрасно отрабатывает, программа распаковывает файл

Как и какие права нужно дать права папке и ее наследуемым файлам?

Да все оказалось гораздо проще и с правами все в порядке.
Просто нужно было поставить Sleep(10) между процессом копирования файла с FTP и распаковкой
так как файл не успевал скопироваться полностью как запускался процесс распаковки. А все это делается одной функцией

Ну возможно этого сценария не достаточно. Проверено опытным путем