Текущее время: Вт, май 13 2025, 02:56

Часовой пояс: UTC + 3 часа


Правила форума


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Отчистка директорий
СообщениеДобавлено: Ср, ноя 24 2004, 15:09 
Гость
Господа, подскажите.
Выгружается из sap через CALL FUNCTION 'WS_DOWNLOAD'
в определенную директорию текстовый файл.
Директория может быть не пустая.
Как отчистить директорию перед выгрузкой в неё файлов.


Принять этот ответ
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, ноя 24 2004, 15:46 
Гость
DATA: FTAB(200) TYPE C OCCURS 0, I TYPE I.
DATA: FILENAME TYPE STRING.

DATA: DIRECTORY TYPE STRING VALUE 'C:\TEST\'.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_LIST_FILES
EXPORTING
DIRECTORY = DIRECTORY
FILTER = '*.*'
FILES_ONLY = 'X'
CHANGING
FILE_TABLE = FTAB
COUNT = I
EXCEPTIONS
CNTL_ERROR = 1
DIRECTORY_LIST_FILES_FAILED = 2
WRONG_PARAMETER = 3
ERROR_NO_GUI = 4
OTHERS = 5.

LOOP AT FTAB INTO FILENAME.
CONDENSE: DIRECTORY, FILENAME.
CONCATENATE DIRECTORY FILENAME INTO FILENAME.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_DELETE
EXPORTING: FILENAME = FILENAME
CHANGING: RC = I
EXCEPTIONS: OTHERS = 10.
IF SY-SUBRC = 0.
WRITE:/ FILENAME, ' - удален'.
ELSE.
WRITE:/ FILENAME, ' - ошибка удаления!'.
ENDIF.
ENDLOOP.


Принять этот ответ
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Ср, ноя 24 2004, 16:05 
Гость
* Для версии, ниже 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.


Принять этот ответ
Вернуться к началу
  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB