An SAP Consultant

REPORT ZTEST_FRONT_END_SERVICES.
*&----------------------------------------------------*
* Declaration
*&----------------------------------------------------*
DATA: lt_file_table   TYPE TABLE OF file_info,
      ls_file_table   LIKE LINE OF lt_file_table.
DATA: lv_count        TYPE i.
data: lv_last_char    TYPE c.
data  lv_filename     TYPE string.
*&----------------------------------------------------*
* Selection-screen
*&----------------------------------------------------*
PARAMETERS: p_dir type string.

*&----------------------------------------------------*
* Start-of-selection
*&----------------------------------------------------*
START-OF-SELECTION.

  CALL METHOD cl_gui_frontend_services=>directory_list_files
    EXPORTING
      directory                   = p_dir
*     filter                      = '*.*'
      files_only                  = 'X'
    CHANGING
      file_table                  = lt_file_table
      count                       = lv_count
    EXCEPTIONS
      cntl_error                  = 1
      directory_list_files_failed = 2
      wrong_parameter             = 3
      error_no_gui                = 4
      not_supported_by_gui        = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    LOOP AT lt_file_table INTO ls_file_table.
      IF lv_last_char = '\'.
        CONCATENATE p_dir ls_file_table-filename INTO lv_filename.
      ELSE.
        CONCATENATE p_dir '\' ls_file_table-filename INTO lv_filename.
      ENDIF.
      WRITE lv_filename.
    ENDLOOP.
  ENDIF.