◄Example► ◄Contents► ◄Index► ◄Back► ────────────────────────────────────────────────────────────────────────────── 'This example uses the SHELL function to execute three OS/2 commands. CLS ON ERROR GOTO ErrHandler Ext$ = CHR$(34) + " EXE" + CHR$(34) 'The child process does: DIR | FIND " EXE" | SORT Child$ = "dir | find " + Ext$ + " | sort" ProcessID = SHELL(Child$) PRINT "Process ID is: ProcessID" END ErrHandler: SELECT CASE ERR CASE 73 PRINT : PRINT "You cannot use the SHELL function in DOS." CASE ELSE END SELECT END