Borrar archivos del servidor

[rulo]

Hola,

alguien tiene un programa o función para poder borrar archivos que puedo ver desde la transacción AL11?

La idea es poder borrar todos los archivos contenidos en un directorio en particular.

Desde ya muchas gracias.

[koken]

Hola Rulo,

hace muucho usé este código que seguramente te sirva:

Con la primer función capturás todos los archivos del directorio que quieras y con la segunda vas borrando uno por uno, por ese motivo hago un loop.

    CALL FUNCTION 'EPS_GET_DIRECTORY_LISTING'
      EXPORTING
        dir_name                     = p_dir
*   FILE_MASK                    = ' '
* IMPORTING
*   DIR_NAME                     =
*   FILE_COUNTER                 =
*   ERROR_COUNTER                =
      TABLES
        dir_list                     = it_dir_list
   EXCEPTIONS
*   INVALID_EPS_SUBDIR           = 1
*   SAPGPARAM_FAILED             = 2
*   BUILD_DIRECTORY_FAILED       = 3
     no_authorization             = 4
*   READ_DIRECTORY_FAILED        = 5
*   TOO_MANY_READ_ERRORS         = 6
*   EMPTY_DIRECTORY_LIST         = 7
*   OTHERS                       = 8
              .
    IF sy-subrc EQ 4.
*  message e020.
* Implement suitable error handling here
    ENDIF.

    LOOP AT it_dir_list.

      CALL FUNCTION 'EPS_DELETE_FILE'
       EXPORTING
         file_name                    = it_dir_list-name
*   IV_LONG_FILE_NAME            =
         dir_name                     = p_dir
*   IV_LONG_DIR_NAME             =
* IMPORTING
*   FILE_PATH                    =
*   EV_LONG_FILE_PATH            =
       EXCEPTIONS
         invalid_eps_subdir           = 1
         sapgparam_failed             = 2
         build_directory_failed       = 3
         no_authorization             = 4
         build_path_failed            = 5
         delete_failed                = 6
         OTHERS                       = 7
                .
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

    ENDLOOP.