获取本地文件夹所有文件信息

*KCD_FRONT_END_DIRECTORY_READ:获取文件夹下所有程序名称
DATA:outputtab LIKE rlgrap-filename OCCURS 0 WITH HEADER LINE.
DATA:r_flag TYPE i.

PARAMETERS:path TYPE localfile OBLIGATORY.

*判断文件路径是否正确
AT SELECTION-SCREEN.
  CALL FUNCTION 'WS_QUERY'
    EXPORTING
      filename = path
      query    = 'DE'
    IMPORTING
      return   = r_flag.
  IF r_flag = 0.
    MESSAGE e000(zsd) WITH 'The file path no-exit!'.
    STOP.
  ENDIF.

START-OF-SELECTION.
*根据文件路径将文件夹下文件名抓取到内表并输出
  CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
    EXPORTING
      i_path      = path
    TABLES
      e_directory = outputtab.
  WRITE:'File Path:',path.
  LOOP AT outputtab.
    WRITE:outputtab.
  ENDLOOP.