Code: Select all
file$="timeloop.pb"
dir$ = GetPathPart(file$)
If file$ And FileSize(file$)>0
Compiler = RunProgram(#PB_Compiler_Home+"\Compilers\pbcompiler", Chr(34)+dir$+file$+Chr(34)+
" /commented", dir$, #PB_Program_Hide|#PB_Program_Wait)
If Compiler
dir$+"PureBasic.asm"
RunProgram("notepad.exe", dir$,"")
EndIf
EndIf