Below program uses COPY_FILES_LOCAL static method of class CL_CTS_LANGUAGE_FILE_IO to copy a file from one folder to another folder in SAP application server.
*&---------------------------------------------------------------------* *& Data Declaration *&---------------------------------------------------------------------* DATA: g_s_file TYPE epsfilnam, g_s_dir TYPE epsdirnam, g_t_file TYPE epsfilnam, g_t_dir TYPE epsdirnam. *&---------------------------------------------------------------------* *& Selection screen *&---------------------------------------------------------------------* PARAMETERS: p_s_file TYPE pathextern OBLIGATORY, "Source File p_s_dir TYPE pathextern OBLIGATORY, "Source Directory p_t_file TYPE pathextern OBLIGATORY, "Target File p_t_dir TYPE pathextern OBLIGATORY. "Target Directory *&---------------------------------------------------------------------* *& Start Of Selection *&---------------------------------------------------------------------* START-OF-SELECTION. g_s_file = p_s_file. g_s_dir = p_s_dir. g_t_file = p_t_file. g_t_dir = p_t_dir. *Copy file from Source directory to Target directory CALL METHOD cl_cts_language_file_io=>copy_files_local EXPORTING im_source_file = g_s_file im_source_directory = g_s_dir im_target_file = g_t_file im_target_directory = g_t_dir im_overwrite_mode = 'F' EXCEPTIONS open_input_file_failed = 1 open_output_file_failed = 2 write_block_failed = 3 read_block_failed = 4 close_output_file_failed = 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. ENDIF.
The different overwrite options can be found in below table.
Value | Description |
---|---|
Don’t overwrite if file exists with size > 0 | |
S | Overwrite if file exists with wrong size |
F | Force overwrite |
R | Restart mode |