Real time file exist check...

Question

Hello all,
Would like to ask, is there any way in ABAP to create a real-time file(S) exist check let's say in local PC drive/directory?
Thanks in advance!

Answer 1

Hi,
1. If you are talking about real time,
  then in that case the z program will continuously run (in foreground ofcourse).
It will continually check (eg. every 1 second) for the existence of file - using the FM or class method.
2. In such continous checking, we have to use the timer concept.
3. Below is a program which continuosly
   checks for the existence of file
   D:\abc.txt
  (u can change that file in the program)
If the file is not found (continously) it keeps on
   displaying 'File NOT Found'
   if found it displays 'File FOUND'
4. Just copy paste to get a taste of it.
5.
REPORT abc NO STANDARD PAGE HEADING.
DATA : wa(72) TYPE c.
CLASS my DEFINITION.
PUBLIC SECTION.
METHODS : run_handler FOR EVENT finished OF cl_gui_timer.
ENDCLASS. "my DEFINITION
DATA timer TYPE REF TO cl_gui_timer.
DATA myh TYPE REF TO my.
* CLASS my IMPLEMENTATION
CLASS my IMPLEMENTATION.
METHOD run_handler.
CALL METHOD timer->run.
PERFORM mylist.
ENDMETHOD. "run_handler
ENDCLASS. "my IMPLEMENTATION
*-------------- Init
INITIALIZATION.
CREATE OBJECT timer.
CREATE OBJECT myh.
SET HANDLER myh->run_handler FOR ALL INSTANCES.
* PARAMETERS : a TYPE c.
*----------- End of selection
START-OF-SELECTION.
WRITE sy-uzeit TO wa.
WRITE wa.
timer->interval = '0.5'.
CALL METHOD timer->run.
FORM mylist.
*WRITE sy-uzeit TO wa.
data : filesize type i.
CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
  EXPORTING
    FNAME                = 'D:\abc.txt'
IMPORTING
*   EXIST                =
*   ISDIR                =
   FILESIZE             = filesize
EXCEPTIONS
   FILEINFO_ERROR       = 1
   OTHERS               = 2
if filesize  = -1.
wa = 'File NOT Found'.
else.
wa = 'File FOUND !!!'.
endif.
MODIFY LINE 1 LINE VALUE FROM wa.
ENDFORM. "MYLIST
regards,
amit m.