ok, i am trying to run a .exe from a resource file, here's my script:
_____________________________________________
Public Sub PlayElfBowl(id101 As Integer)
Dim bytResdata() As Byte
Dim intFreefile() As Integer
Dim strTemp() As String
bytResDate = LoadResData(id101, "Custom")
strTemp = App.Path & IIf(Right(App.Path, 1) = "\", "temp.exe", "\temp.exe")
intFreefile = FreeFile
Open strTemp For Binary As intFreefile
Put #intFreefile, , bytResdata
Close #intFreefile
Call PlayElfBowl(strTemp, Flags)
Kill strTemp
End Sub
Private Sub Command1_Click()
Call PlayElfBowl
End Sub
_____________________________________________
i knew this was wrong anyway, but i dont know what is wrong, can anyone help?
