ABAP获取文件路径

ABAP获取文件路径

FORM frm_get_file_path CHANGING cv_file TYPE string.
  DATA:lv_rc TYPE i,
       lt_file TYPE filetable,
       ls_file TYPE LINE OF filetable.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title   = '选择文件'
      multiselection = 'X'
      file_filter    = '(*.xlsx;*.xls;*.PDF;*.doc;*.docx)|*.xlsx;*.xls;*.PDF;*.doc;*.docx|'
    CHANGING
      file_table     = lt_file
      rc             = lv_rc
    EXCEPTIONS
      OTHERS         = 5.

  READ TABLE lt_file  INTO ls_file INDEX 1.
  IF sy-subrc EQ 0.
    cv_file = ls_file-filename.
  ELSE.
    CLEAR cv_file.
  ENDIF.
ENDFORM.                    "FRM_GET_FILE_PATH

.