ตัวอย่าง 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