file_open_dialog

file_open_dialog.abap

DATA:
      it_file TYPE filetable,
      gd_subrc TYPE i.


SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
PARAMETERS:
p_file LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK b1.


*--------------------------------------------------------------------

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
  EXPORTING
*    window_title            =
*    default_extension       =
      default_filename        = '*.prn'
*    file_filter             =
*    with_encoding           =
    initial_directory       = 'C:\Proyectos_SAP\'
*    multiselection          =
    CHANGING
      file_table              = it_file
      rc                      = gd_subrc.

  IF sy-subrc = 0.
    READ TABLE it_file INDEX 1 INTO p_file.
  ENDIF.