SAP ABAP编程 选择文件对话框 CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

*选择本地文件

SELECTION-SCREEN COMMENT 1(20) TEXT-001.

PARAMETERS F_INFILE LIKE RLGRAP-FILENAME .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR F_INFILE.

PERFORM SELECT_FILE CHANGING F_INFILE.

FORM SELECT_FILE CHANGING T_SELFILE.

DATA: L_RC TYPE I,

L_FILETABLE TYPE FILETABLE.

* 打开txt文件

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = '请选择本地文件'

FILE_FILTER = '文本文件 (*.txt)|*.txt|全部文件 (*.*)|*.*|'

MULTISELECTION = SPACE

CHANGING

FILE_TABLE = L_FILETABLE

RC = L_RC

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

OTHERS = 5.

IF SY-SUBRC = 0 AND L_RC = 1.

READ TABLE L_FILETABLE INTO T_SELFILE INDEX 1.

ENDIF.

ENDFORM. "SELECT_FILE