Форум продуктов IBM Lotus

Общие вопросы => Разработка приложений => Тема начата: Mika_89 от 31 Март 2011, 18:22:12

Название: команда Shell, есть ли аналог???
Отправлено: Mika_89 от 31 Март 2011, 18:22:12

Здравствуйте! Возникла такая проблема:
В агенте создается bat файл, далее функция Shell, вызывает этот bat файл, который вызывает макросы из openofficа. И продолжается выполнение кода агента, но мне надо дождаться пока все команды bat файла выполнятся, а потом продолжать выполнение кода агента.

Пыталась воспользоваться функцией Yield, но так как функции GetModuleUsage нет, не знаю как её применить

Может есть аналог функции shell???

Вот код агента
Sub CreateRunDeleteBAT()
   Const FILE_BAT_NAME = "c:\temp\macro.bat"
   Dim macros  As Integer
   Dim FileNumber As Integer
   
   FileNumber = Freefile
   
'creat batch file
   Open FILE_BAT_NAME  For Output As #FileNumber
   Print #FileNumber, "C:"
   Print #FileNumber, "cd " & Chr(34) & "C:\Program Files\OpenOffice.org 3\program" & Chr(34)    
   Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.DoExport "
   Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.CheckPDFFilterProperties(Nbvjirf)"
   Close #FileNumber
   
'run batch file
   macros= Shell(FILE_BAT_NAME,1)
   
   
'Delete batch file
   Kill FILE_BAT_NAME
End Sub

Название: Re: команда Shell, есть ли аналог???
Отправлено: lotusnotes.ru от 04 Апрель 2011, 09:20:08

Непонятно, в чем вопрос.
Что нужно сделать?

Название: Re: команда Shell, есть ли аналог???
Отправлено: Mika_89 от 04 Апрель 2011, 20:09:40

В общем: надо подождать пока выполнится процесс Shell а потом передать управление агенту лотуса. Как это можно сделать?

Название: Re: команда Shell, есть ли аналог???
Отправлено: lotusnotes.ru от 05 Апрель 2011, 13:18:40

как вариант - можно попробовать запустить из батника после выполнения первых команд второй агент через приложение namgr