Hi Ronaldo Aparecido
Try like this
DATA: i_path TYPE string,
sel_path TYPE string,
file_name type string.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
PARAMETER: p_path TYPE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
initial_folder = i_path
CHANGING
selected_folder = sel_path
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
OTHERS = 3.
IF sy-subrc = 0.
CALL METHOD cl_gui_cfw=>flush( ).
IF sel_path IS NOT INITIAL.
p_path = i_path = sel_path.
ENDIF.
ENDIF.
START-OF-SELECTION.
CONCATENATE i_path '\text1.txt' into file_name.
WRITE : file_name.