Запустить бат файл средствами VB6

Формулировка задачи:

Подскажите как правильно запустит бат файл? так не получается. хотелось бы не указывать весь путь так как этот файл может быть и запущен с другого пк.

Dim RetVal
RetVal = Shell("cmd arhiv.bat", 1)

Решение задачи: «Запустить бат файл средствами VB6»

textual
                            Листинг программы 
                        

                            Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Private Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
 ShellExecute 0, vbNullString, _
 App.Path & "\arhiv\arhiv.bat", vbNullString, _
  vbNullString, SW_SHOWNORMAL
End Sub
                        