GetErrorMessage ( 〔Code〕 )
If Exec ( _WIN_+"NOTEPAD.EXE" ,True ,_BIN_+"Loging.txt" ) Then Exit ( _EXEC_RTN_ ) Else Dim errMsg errMsg = GetErrorMessage ( _RTN_ ) Message ( Target_File ,_BIN_+"ErrLog.txt" ,errMsg ) Exit ( 1 ) End