Code: Select all
PB$ = OpenFileRequester("choose purebasic.exe", "", "", 0)
If PB$
RunProgram(PB$, #DOUBLEQUOTE$ + GetPathPart(PB$) + "examples\sources\file.pb" + #DOUBLEQUOTE$, "")
EndIf
Code: Select all
PB$ = OpenFileRequester("choose purebasic.exe", "", "", 0)
If PB$
RunProgram(PB$, #DOUBLEQUOTE$ + GetPathPart(PB$) + "examples\sources\file.pb" + #DOUBLEQUOTE$, "")
EndIf