* Для версии, ниже 4.7
DATA: I,
FILE LIKE RLGRAP-FILENAME,
DIRECTORY(200) TYPE C VALUE 'C:\TEST\', "Директория
FTAB LIKE SDOKPATH OCCURS 0 WITH HEADER LINE,
DTAB LIKE SDOKPATH OCCURS 0 WITH HEADER LINE.
CLEAR: FTAB, DTAB. REFRESH: FTAB, DTAB.
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
EXPORTING
DIRECTORY = DIRECTORY
TABLES
FILE_TABLE = FTAB
DIR_TABLE = DTAB.
LOOP AT FTAB.
CONDENSE: DIRECTORY, FTAB-PATHNAME.
CONCATENATE DIRECTORY FTAB-PATHNAME INTO FTAB-PATHNAME.
FILE = FTAB-PATHNAME.
CALL FUNCTION 'WS_FILE_DELETE'
EXPORTING
FILE = FILE
IMPORTING
RETURN = I.
IF I = '0'.
WRITE:/ FTAB-PATHNAME(50),' - удален'.
ELSE.
WRITE:/ FTAB-PATHNAME(50),' - ошибка удаления'.
ENDIF.
ENDLOOP.
|