[VB.NET][SC] Abrir Metin2 desde cualquier carpeta

jumarras

Hola, he conseguido abrir el metin2 desde cualquier carpeta que estubiese el archivo .exe creado por nosotros. Lo voy a publicar, porque creo que puede ser de gran ayuda para todos. Anghios ya lo tiene, jaber si lo usais adecuadamente xD.

Imports System.IO


Public Sub wait(ByVal interval As Integer)
        Dim sw As New Stopwatch
        sw.Start()
        Do While sw.ElapsedMilliseconds < interval
            Application.DoEvents()
        Loop
        sw.Stop()
End Sub

Private Sub Button1_Click()
        Dim SW As StreamWriter = File.CreateText(""""""""""""EDITAR""""""""""""""" & "start.bat")
        SW.WriteLine("start" & " metin2client.bin") 'no quiteis el espacio, sino, no funcionara.
        SW.Close()
        Dim metin As New Process
        metin.StartInfo.WorkingDirectory = """"""""""""EDITAR"""""""""""""""
        metin.StartInfo.FileName = "start.bat"
        metin.Start()
        wait(3000) 'esto es importante, si no espera uns segundos antes de borrar el archivo, no abre el juego
        File.Delete(""""""""""""EDITAR""""""""""""""" & "start.bat")
'Donde pone editar hay que poner la cerpeta del metin2. ejemplo (C:\metin2\) recordad, terminarlo siempre con \
'podeis usar el FolderBrowserDialog para buscar la carpeta del metin2, guardarlo en un textbox y un archivo de texto para cuando inicies el programa, lo lea desde el archivo no tengas que meter de nuevo la ubicacion.
end sub

Anghios

Se agradece el código, funciona con un simple "Shell" si le das la ruta de raíz. Pero si así no hace falta darle la ruta, eres el nuevo amo. ^:)^