DATA : dir_name TYPE epsf-epsdirnam, "directory
it_dir_list TYPE TABLE OF epsfili. "In Process Directory List
CLEAR: l_dir_name.
* Whether file exists in the directory?
CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
EXPORTING
dir_name = dir_name
* FILE_MASK = ' '
* IMPORTING
* DIR_NAME =
* FILE_COUNTER =
* ERROR_COUNTER =
TABLES
dir_list = it_dir_list
EXCEPTIONS
invalid_eps_subdir = 1
sapgparam_failed = 2
build_directory_failed = 3
no_authorization = 4
read_directory_failed = 5
too_many_read_errors = 6
empty_directory_list = 7
OTHERS = 8 .
IF sy-subrc = 0. "File exists
“Internal table it_dir_list has files.
ELSE.
CASE sy-subrc.
WHEN 1.
MESSAGE ‘Invalid directory.’ TYPE 'E'.
WHEN 2.
MESSAGE ‘SAPGPARAM Failed.’ TYPE 'E'.
WHEN 3.
MESSAGE ‘build_directory_failed’ TYPE 'E'.
WHEN 4.
MESSAGE ‘No authorization.’ TYPE 'E'.
WHEN 5.
MESSAGE ‘Read directory failed.’ TYPE 'E'.
WHEN 6.
MESSAGE ‘Too many Read errors.’ TYPE 'E'.
WHEN 7.
MESSAGE ‘Empty directory.’ TYPE 'E'.
ENDCASE.
ENDIF.