（转）F4 help to select file

不知道对不对，估计以后能用上。[@more@]

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file TYPE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
DATA: l_v_file_filter TYPE STRING.
DATA: l_v_filetable TYPE FILE_TABLE,
l_t_filetable TYPE FILETABLE.
DATA: l_v_rc TYPE I.
DATA: l_v_user_action TYPE I.

l_v_file_filter = '(*.txt)|*.txt|(*.xls)|*.xls'.
cl_gui_frontend_services=>file_open_dialog

( EXPORTING

window_title = 'Select file'
file_filter = l_v_file_filter

CHANGING

file_table = l_t_filetable
rc = l_v_rc
user_action = l_v_user_action ).
CHECK l_v_user_action EQ 0.
CHECK l_t_filetable[] IS NOT INITIAL.
READ TABLE l_t_filetable INTO l_v_filetable INDEX 1.
p_file = l_v_filetable-filename.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8356764/viewspace-933232/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8356764/viewspace-933232/