Download Text File

Program & Report

ตัวอย่าง Code สำหรับ Download Text File สามารถ Copy ไปประยุกต์ใช้ได้เลยนะครับ

*&———————————————————————*
*& Form download_file
*&———————————————————————*
* text
*———————————————————————-*
form DOWNLOAD_FILE.
data: FULLPATH type STRING,
FILENAME type STRING,
PATH type STRING,
FILE_EXT type STRING,
FILE_FIL type STRING,
USER_ACTION type I.

PATH = ‘U:\’.
FILE_EXT = ‘TXT’.
FILE_FIL = ‘*.TXT’.

call method CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
exporting
WINDOW_TITLE = ‘Download…’
* WITH_ENCODING = ‘X’
INITIAL_DIRECTORY = PATH
DEFAULT_EXTENSION = FILE_EXT
DEFAULT_FILE_NAME = FILENAME
FILE_FILTER = FILE_FIL
changing
FILENAME = FILENAME
PATH = PATH
FULLPATH = FULLPATH
USER_ACTION = USER_ACTION
exceptions
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
others = 4.

check SY-SUBRC = 0.
if USER_ACTION = CL_GUI_FRONTEND_SERVICES=>ACTION_OK.

* Download variables
call function ‘GUI_DOWNLOAD’
exporting
FILENAME = FULLPATH
FILETYPE = ‘ASC’
CODEPAGE = ‘8604’ ” Thai, ‘4110’ ” UTF-8
tables
DATA_TAB = ITAB.
else.

endif.
endform. ” DOWNLOAD_ITABS