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

@ASSEI · Регистрация: 18.10.2012

Студворк — интернет-сервис помощи студентам

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

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

@Pro_grammer · 17.05.2017, 17:54

ShellExecute ?

@ASSEI · 18.05.2017, 12:22 **[ТС]**

Сообщение от Pro_grammer

ShellExecute ?

это вопрос или ответ, попробовал с этим не получается

Visual Basic
1
RetVal = ShellExecute("cmd arhiv.bat", 1)

@Kogb · 18.05.2017, 12:46

Visual Basic
1
2
Dim RetVal
RetVal = Shell("cmd /c arhiv.bat", 1)

@Pro_grammer · 18.05.2017, 12:53

Сообщение от ASSEI

попробовал с этим не получается

Это был вопрос, который в развёрнутом виде мог бы так прозвучать:
"Только средствами VB6? А например по средствам WinAPI ShellExecute случайно не подойдёт?"
Но теперь вижу, что вы не в теме. Зря спросил.
Теперь придется гуглить описание:

Описание
Данная функция открывает файл тем приложением, с которым оно ассоциировано. Например, текстовые документы открывает блокнотом, html-станицы браузером и т.п.

Пример использования:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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 Form_Load()
  ShellExecute 0, vbNullString, _
 App.Path & "\arhiv.bat", vbNullString, _
  vbNullString, SW_SHOWNORMAL
End Sub

@ASSEI · 18.05.2017, 14:03 **[ТС]**

Добавлено через 59 минут
не запускается

@Pro_grammer · 18.05.2017, 18:20

И так не запускается?
Запустить бат файл средствами VB6

А должен!
Ещё можно приписать путь к файлу в виде App.Path & "\arhiv.bat"
Так же будет работать с любого компа, если только arhiv.bat в папке с программой лежит.

@ASSEI · 18.05.2017, 21:18 **[ТС]**

наверное я что то не так делаю, вот мой пример во вложении.

@ASSEI · 18.05.2017, 21:40 **[ТС]**

простите за мою тупизну

Сообщение от Pro_grammer

если только arhiv.bat в папке с программой лежит.

это работает, но не хотелось бы смешивать "мух с котлетами"

@Pro_grammer · 19.05.2017, 06:27

Сообщение от ASSEI

что то не так делаю

Ясное дело. Ну откуда программе знать, что у вас файл bat лежит в отдельной папке?
Это же надо указать явно в коде

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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

@ASSEI · 19.05.2017, 12:20 **[ТС]**

странное дело если в другой папке все лежит не работает(не создает архив), а если где программа то работает,

Добавлено через 1 час 34 минуты
Подскажиет возможно ли сделать все это средствам vb6 переместит в архив файл?

@Pro_grammer · 19.05.2017, 13:50

У вас там bat файл совершенно лишний. Запускайте сразу rar.exe (именно лучше RAR консольный, а не winrar ) с нужными настройками через Shell
Пути к файлам указывать обязательно, иначе RAR не знает, где их искать, эти файлы.

@ASSEI · 19.05.2017, 14:47 **[ТС]**

Позвольте просьбу по поводу данного вопроса в виде кода, момент состоит только в том что бы пути были относительные так как программка имеет надобность перемещаться на другой пк, заранее примного благодарен!

@Pro_grammer · 19.05.2017, 17:21

Сообщение от ASSEI

момент состоит только в том что бы пути были относительные

Нет проблем. Вот проект

@ASSEI · 19.05.2017, 20:12 **[ТС]**

скажите пожалуйста где исправить что бы архивировалось только файл xl а не весь путь к нему ?

@Pro_grammer · 19.05.2017, 21:21

Сообщение от ASSEI

только файл xl а не весь путь к нему ?

Это надо изучить ключи к архиватору!
Думаю, что надо добавить ключик -ep:

Visual Basic
1
RetVal = Shell(App.Path & "\arhiv\rar.exe m -y -m5 -ep -agmm.YYYY " & rrr$ & " " & ish$, vbNormalFocus)

@ASSEI · 19.05.2017, 21:25 **[ТС]**

ОГРОМНЫЙ РЕСПЕКТ ВАМ ))))

@ASSEI · 22.05.2017, 13:03 **[ТС]**

вы знаете на домашнем пк все работает а на рабочем выдает такую ошибку

@Pro_grammer · 22.05.2017, 16:05

Сообщение от ASSEI

выдает такую ошибку

Неправильно вызываете процедуру, где то ошибка в аргументах.
Что то меняли в коде? Чему равен App.Path?

@ASSEI · 22.05.2017, 16:39 **[ТС]**

а этот код из вашего примера который вы мне сбрасывали, равен Empty

Добавлено через 17 минут
приду домой сравню коды

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	17.05.2017, 17:54
	ShellExecute ? 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	18.05.2017, 14:03 [ТС]
	Добавлено через 59 минут не запускается 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	18.05.2017, 18:20
	И так не запускается? Запустить бат файл средствами VB6 А должен! Ещё можно приписать путь к файлу в виде App.Path & "\arhiv.bat" Так же будет работать с любого компа, если только arhiv.bat в папке с программой лежит. 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2017, 12:20 [ТС]
	странное дело если в другой папке все лежит не работает(не создает архив), а если где программа то работает, Добавлено через 1 час 34 минуты Подскажиет возможно ли сделать все это средствам vb6 переместит в архив файл? 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	19.05.2017, 13:50
	У вас там bat файл совершенно лишний. Запускайте сразу rar.exe (именно лучше RAR консольный, а не winrar ) с нужными настройками через Shell Пути к файлам указывать обязательно, иначе RAR не знает, где их искать, эти файлы. 1

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2017, 14:47 [ТС]
	Позвольте просьбу по поводу данного вопроса в виде кода, момент состоит только в том что бы пути были относительные так как программка имеет надобность перемещаться на другой пк, заранее примного благодарен! 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2017, 20:12 [ТС]
	скажите пожалуйста где исправить что бы архивировалось только файл xl а не весь путь к нему ? 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2017, 21:25 [ТС]
	ОГРОМНЫЙ РЕСПЕКТ ВАМ )))) 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	22.05.2017, 13:03 [ТС]
	вы знаете на домашнем пк все работает а на рабочем выдает такую ошибку Миниатюры 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	22.05.2017, 16:39 [ТС]
	а этот код из вашего примера который вы мне сбрасывали, равен Empty Добавлено через 17 минут приду домой сравню коды 0

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

Решение