как делаю я
конструкция работает уже 2 + года

модуль: 1 ф-я запускает приложение и ждет
я её использую вторую см.ниже- она позволяет обновлять
приложение DoEvents чтоб не висло

Option Compare Database
Option Explicit

Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Const PROCESS_QUERY_INFORMATION = &H400
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF

Const STILL_ACTIVE = &H103&

Const glrcErrFileNotFound = 53

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long

Public Function ahtRunApp(strCommand As String, intMode As Integer)

' Run an application, returning immediately to
' the caller. Just presented as a parallel for
' ahtRunAppWait

Dim hInstance As Long
On Error GoTo ahtRunApp_Err
hInstance = Shell(strCommand, intMode)

ahtRunApp_Exit:
Exit Function

ahtRunApp_Err:
Select Case err.Number
Case glrcErrFileNotFound
MsgBox "не найден : '" & strCommand & "'"
Case Else
MsgBox err.Description
End Select
Resume ahtRunApp_Exit
End Function

Public Function ahtRunAppWait(strCommand As String, intMode As Integer) As Integer
' Run an application, waiting for its completion
' before returning to the caller.

Dim hInstance As Long
Dim hProcess As Long
Dim lngRetval As Long
Dim lngExitCode As Long
'Dim lngEnter As Long

On Error GoTo ahtRunAppWait_Err
' Start up the application.
hInstance = Shell(strCommand, intMode)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or SYNCHRONIZE, _
True, hInstance)
Do
DoEvents ' обновл форmы

' Attempt to retrieve the exit code, which will
' not exist until the application has quit.
lngRetval = GetExitCodeProcess(hProcess, lngExitCode)



'If IsLoaded("frpProgressMeter") Then 'если прог метр загружн
'lngEnter = lngEnter + 0.01
'If lngMaxParametr <= lngEnter Then lngEnter = 1
'subRefreshProgressMeter (Fix(lngEnter))
'End If

Loop Until lngExitCode <> STILL_ACTIVE


ahtRunAppWait_Exit:
Exit Function

ahtRunAppWait_Err:
Select Case err.Number
Case glrcErrFileNotFound
MsgBox "Не найдено '" & strCommand & "'"
Case Else
ahtRunAppWait = err.Number

End Select
Resume ahtRunAppWait_Exit
End Function

'сам вызов :
dim s as string
s="\путь к winrarу\" & " a -ep -m5 -o+ -vp -vd -y " & "путь к файлу " & "путь куда архив-ровать" ' внимательно смотри на пробелы

ahtRunAppWait(s, SW_SHOWNORMAL)

таким же образом можно подчинить TheBat

отправка почты
Call ahtRunApp("C:\Progra~1\TheBat~1\thebat.exe /NOLOGO /MAIlU="твой ящик";F="outbox\Твоя папка в нём";send /exit, SW_HIDE)[/quot][/quot]только:
1.theBat - должен быть закрыт (ето тоже можно проверять прграмно)
2.В твоем поч. ящике должна быть создана папка с шаблоном нового
письма в котором указывается тема, адрес и прикрепляемые файлы.



В общем очень кратко получилось
но идея вроде бы ясна.
Удачи!