Текущее время: Пн, май 12 2025, 23:19

Часовой пояс: 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 часа


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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