Помогите с запуском EXE

[DastElves]

Здравствуйте !
Помогите пожалуйста с проблемкой
Проблема следующего плана, нужно что бы при нажатии на кнопку запускалась игра, есть код
#######
Dim FileName As String
FileName = "C:\windows\explorer.exe"
X=Shell ("rundll32.exe url.dll,FileProtocolHandler" & " " & FileName, vbMaximizedFocus)
#######
При нажатии на кнопу Explorer запускается, и не которые игры тоже, но большинство нет, пиште что ненайден путь к папке, скажем в случае с игрой Quake3 в окне появляется надпись что ненайдена папка baseq3 по адресу c:\...\...\...\рабочий стол\baseq3
на рабочем столе находится мой exe файл с кнопкой на запуск Q3..
Т.е. он пытается рабочую папку для Q3 взять с того места где находится мой exe'шник )
Подскажите как привильно написать!

[tyomitch]

Боже милостивый... А что, просто "Shell FileName" вместо этого чуда уже не работает?


По существу: перед запуском нужно перейти (оператором ChDir) в папку программы.

[Amed]

Переношу в Новичковый.

[Dex]

А я когда столкнулся с подобной проблемой заюзал ShellExecute вот так примерно:

Код: Выделить всё

ShellExecute hwnd, "Open", FileName, vbNullString, directory, 1

FileName - имя файла
directory - директория соответственно
hwnd - хэндл твоей формы
Объява если незнаешь делается так:

Код: Выделить всё

Declare Function ShellExecute Lib "shell32.dll" 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

Если, что спрашивай помогу
А с тем что ты написал, уж жёстко ты намудрил

[DastElves]

Поробовал написал

Declare Function ShellExecute Lib "shell32.dll" 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 Sub Command6_Click()
ShellExecute hwnd, "Open", QUAKE3.EXE, vbNullString, "d:\games\q3", 1
End Sub

С объявой пишет "Only comments may appear after EndSub, EndFunction, or EndProperty"

Совсем не понимаю что делать ..
Извените за мою тупость, VB запускаю всего раз 10 Практически ничего не рублю в нем... Но очень надо написать это !

[VVitafresh]

Попробуй запусить, как тебе tyomitch посоветовал.

[DastElves]

Через Shell FileName тоже пробовал запускаются далеко не все игры проблема точно такая же...
и что за функция ChDir как она работает ?? говорят с помощью нее можно сделать !

[DastElves]

Все.
Всем спасибо нашел решение

ChDrive "D"
ChDir ("D:\games\...\...")
Shell "*.exe", vbMaximizedFocus

так все работает