FORM frm_path_set USING p_path.
DATA(lo_file) = NEW cl_gui_frontend_services( ).
DATA: lv_default TYPE string.
DATA lv_select TYPE string.
lo_file->get_temp_directory( CHANGING temp_dir = lv_default
EXCEPTIONS cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3 ).
lo_file->directory_browse( EXPORTING initial_folder = lv_default
CHANGING selected_folder = lv_select
EXCEPTIONS cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3 ).
CHECK lv_select IS NOT INITIAL.
p_path = lv_select && ‘\ZMMR040’ && ‘-’ && sy-datum
&& ‘-’ && sy-uzeit && ‘.XLS’ .
ENDFORM.