1.浏览文件夹
data:p_file TYPE rlgrap-filename.
CALL FUNCTION 'TMP_GUI_BROWSE_FOR_FOLDER'
EXPORTING
window_title = '选择文件夹'
initial_folder = ''
IMPORTING
selected_folder = p_file
EXCEPTIONS
cntl_error = 1
OTHERS = 2.
2.判断文件是否存在
DATA:r_flag TYPE i.
"判断文件夹是否存在
CALL FUNCTION 'WS_QUERY'
EXPORTING
filename = p_file
query = 'DE'
IMPORTING
return = r_flag.
3.获取文件夹下的所有文件
*根据文件路径将文件夹下文件名抓取到内表
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
EXPORTING
i_path = p_file
TABLES
e_directory = gt_images.
data:p_file TYPE rlgrap-filename.
CALL FUNCTION 'TMP_GUI_BROWSE_FOR_FOLDER'
EXPORTING
window_title = '选择文件夹'
initial_folder = ''
IMPORTING
selected_folder = p_file
EXCEPTIONS
cntl_error = 1
OTHERS = 2.
2.判断文件是否存在
DATA:r_flag TYPE i.
"判断文件夹是否存在
CALL FUNCTION 'WS_QUERY'
EXPORTING
filename = p_file
query = 'DE'
IMPORTING
return = r_flag.
3.获取文件夹下的所有文件
*根据文件路径将文件夹下文件名抓取到内表
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
EXPORTING
i_path = p_file
TABLES
e_directory = gt_images.