Move File from one floder to the other

Question

Hi,
did anyone work on this requirement?
Search for a file in a  directory(AL11).
If the file  is found than  copy the file to the outbound directory
I have used the FM EPS_GET_DIRECTORY_LISTING to search file. and how will i copy it from arcive directory to the outbound directoty?

Answer 1

DATA: file_count  TYPE i,
        dir_count   TYPE i.
  DATA: file_table  LIKE sdokpath OCCURS 0 WITH HEADER LINE,
        dir_table   LIKE sdokpath OCCURS 0 WITH HEADER LINE,
        source      LIKE rlgrap-filename,
        destination LIKE rlgrap-filename,
        return TYPE i.
IF p_move = 'X'.
    CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
      EXPORTING
        directory  = text1
        filter     = '*.*'
      IMPORTING
        file_count = file_count
        dir_count  = dir_count
      TABLES
        file_table = file_table
        dir_table  = dir_table
      EXCEPTIONS
        cntl_error = 1
        OTHERS     = 2.
    IF sy-subrc = 0.
      LOOP AT file_table.
        CONCATENATE text2 file_table-pathname
        INTO destination.
        CONCATENATE text1 file_table-pathname
        INTO source.
        CALL FUNCTION 'WS_FILE_COPY'
          EXPORTING
            destination = destination
            SOURCE      = SOURCE
          importing
            return      = return.
        CALL FUNCTION 'WS_FILE_DELETE'
          EXPORTING
            file   = source
          IMPORTING
            return = return.
      ENDLOOP.
      CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
        EXPORTING
          directory  = text1
          filter     = '*.*'
        IMPORTING
          file_count = file_count
          dir_count  = dir_count
        TABLES
          file_table = file_table
          dir_table  = dir_table
        EXCEPTIONS
          cntl_error = 1
          OTHERS     = 2.
      IF file_count > 0.
        CONCATENATE 'Error copying' source 'to' destination
        INTO i_error SEPARATED BY space.
        APPEND i_error.
      ENDIF.
    ENDIF.
  ENDIF.
Create a folder named tes1 and test2 in C drive and place a dummy file 1.txt and check the code.
Text 1---  C:\test1\1.txt
Text 2 -- C:\test2\1.txt
K.Kiran.