/* Event Clicked/selected - Find...  1003 */
Arg window self


dirsearch=0
/* Open the form C:\Desktop\MAMERun!2\finddir */
/* value=VpOpenForm(window, 259, 'topic name') */

mameprog=VpFileDialog(window,'OPEN','MAME.EXE','MAMERun/2 - Find')
call vpsetitemvalue window,1002,mameprog


/* set the mame program file */
querymameprog=vpgetitemvalue(window,1002)

rc=stream(querymameprog,'C','QUERY EXISTS')
if rc > 0 then
  null
else
  response=VpMessageBox(window,'MAMERun - ERROR','You have entered an invalid path!')


