Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: BAT Файл Добавлено: 23.04.10 17:02  

Автор вопроса:  Petr
Какой код нужна? для того чтобы моя программа запускала bat файлы.

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #1 		Добавлено: 23.04.10 17:23
http://www.google.ru/search?client=opera&rls=ru&q=ShellExecute+VB6&sourceid=opera&ie=utf-8&oe=utf-8

И вообще, код - это мужык, смекаешь?

Ответить

Номер ответа: 2
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #2 		Добавлено: 23.04.10 19:15
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  2.      ByVal hWnd As Long, _
  3.      ByVal lpOperation As String, _
  4.      ByVal lpFile As String, _
  5.      ByVal lpParameters As String, _
  6.      ByVal lpDirectory As String, _
  7.      ByVal nShowCmd As Long) As Long
  8. Private Sub Help_Click(Index As Integer)
  9.  Dim appPath As String
  10.     'appPath - путь проги. вместо него можешь написать свой путь
  11.     appPath = App.Path
  12.     If Right$(appPath, 1) <> "\" Then appPath = appPath & "\"
  13.     ShellExecute Me.hWnd, "Open", appPath + "твой файл", "", appPath, SW_SHOWNORMAL
  14. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #3 		Добавлено: 23.04.10 19:17
а вообще под все расширения ShellExecute идёт помоему

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам