闲看的时候发现一个好玩儿的demo,生成压缩文件的。
效果
代码
TYPES
:
BEGIN
OF bin_file
,
name
TYPE string
,
size
TYPE
i
,
data
TYPE solix_tab
,
END
OF bin_file
.
DATA
: lv_filename
TYPE string
,
wa_bindata
TYPE bin_file
,
it_bindata
TYPE
STANDARD
TABLE
OF bin_file
,
oref_zip
TYPE
REF
TO cl_abap_zip
,
lv_zip_xstring
TYPE xstring
,
lv_xstring
TYPE xstring
,
lv_path
TYPE string
,
it_filetab
TYPE filetable
,
ret_code
TYPE
i
,
v_usr
TYPE
i
,
v_zip_size
TYPE
i
,
it_zip_bin_data
TYPE
STANDARD
TABLE
OF raw255
,
v_dest_filepath
TYPE string
.
DATA lv_filesize
TYPE
i
.
DATA wa_filetab
LIKE
LINE
OF it_filetab
.
"create object
CREATE OBJECT oref_zip
.
"upload
cl_gui_frontend_services
=>file_open_dialog
(
EXPORTING
window_title
=
'Select files that you want to ZIP'
multiselection
=
'X'
CHANGING
file_table