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

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

Подскажите как правильно запустит бат файл? так не получается. хотелось бы не указывать весь путь так как этот файл может быть и запущен с другого пк.
Dim RetVal
RetVal = Shell("cmd arhiv.bat", 1)


textual

Код к задаче: «Запустить бат файл средствами VB6 - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5

Источник