steff
21-03-2011, 16:50
Доброго всем времени суток! Пишу лаунчер для одной игрушки, в ходе написания столкнулся с проблемкой. Суть проблемы в том, что лаунчеру нужно указать исполняемый (пусковой .exe) файл игры, а затем запомнить путь к нему и запустить. Реализовать решил просто указав путь к папке в котором находится файл и все, но не получается. Помогите советом.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
Dim procID As Integer
Dim procIS As String
If My.Computer.FileSystem.FileExists("RUN_GAME.exe") Then
procID = Shell("RUN_GAME.exe", AppWinStyle.NormalFocus)
Else
'MsgBox("File RUN_GAME.exe not found.")
'Me.Show()
Try
With fldlgList
.RootFolder = Environment.SpecialFolder.MyComputer
.Description = "Выберите дирректорию в которую установлена игра"
.ShowNewFolderButton = False
If .ShowDialog = Windows.Forms.DialogResult.OK Then
procIS = Windows.Forms.Application.StartupPath("RUN_KF.exe")
procID = procIS & Shell("RUN_GAME.exe", AppWinStyle.NormalFocus)
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
End Try
End If
End Sub
P.S. код какбэ рабочий, но после указания папки с файлом пишит, и нажатия "ОК", пишит что "файл не найден" (естветсвенно в папке он присутствует)
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
Dim procID As Integer
Dim procIS As String
If My.Computer.FileSystem.FileExists("RUN_GAME.exe") Then
procID = Shell("RUN_GAME.exe", AppWinStyle.NormalFocus)
Else
'MsgBox("File RUN_GAME.exe not found.")
'Me.Show()
Try
With fldlgList
.RootFolder = Environment.SpecialFolder.MyComputer
.Description = "Выберите дирректорию в которую установлена игра"
.ShowNewFolderButton = False
If .ShowDialog = Windows.Forms.DialogResult.OK Then
procIS = Windows.Forms.Application.StartupPath("RUN_KF.exe")
procID = procIS & Shell("RUN_GAME.exe", AppWinStyle.NormalFocus)
End If
End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
End Try
End If
End Sub
P.S. код какбэ рабочий, но после указания папки с файлом пишит, и нажатия "ОК", пишит что "файл не найден" (естветсвенно в папке он присутствует)