PDA

View Full Version : Getting close



korori
October 3rd, 2007, 11:48 PM
Question ok im back at programming that app for halo ce


it compiles

THE CODE
Private Sub btnLevelCompile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLevelCompile.Click
If txtLevel.Text = ".jms" Then Exit Sub
Dim path As String = txtLevel.Text
Dim dir As String = ""
Dim file As String = ""
Dim parsed As String = ""
Try
file = Mid(path, path.LastIndexOf("\") + 2, path.LastIndexOf(".") - path.LastIndexOf("\") - 1)
dir = Mid(path, path.LastIndexOf("levels") + 1, path.LastIndexOf("\") - path.LastIndexOf("levels") - 6)
parsed = dir & " " & file

Shell("tool.exe structure " & parsed)
Catch ex As Exception
MessageBox.Show("Please select a .jms file before hitting the button")
End Try
End Sub


Problem now is the name of the .scenario is blank when compiling any idea. Blue Elite helped me with parsing but we could not figure out why it compile with no name.


anyone has an idea what i can do