獲取本地文件夾所有文件信息

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
    EXCEPTIONS
      INV_QUERY      = 1
      NO_BATCH       = 2
      FRONTEND_ERROR = 3
      OTHERS         = 4.
  IF R_FLAG = 0.
    MESSAGE E000(ZSD) WITH 'The file path no exist!'.
    STOP.
  ENDIF.

START-OF-SELECTION.

  CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
    EXPORTING
      I_PATH              = PATH
    TABLES
      E_DIRECTORY         = OUTPUTTAB
    EXCEPTIONS
      DOWNLOAD            = 1
      UPLOAD              = 2
      EXECUTE             = 3
      DIRECTORY_NOT_EXIST = 4
      DIRECTORY           = 5
      OTHERS              = 6.

  WRITE: 'File Path:',PATH.
  LOOP AT OUTPUTTAB.
    WRITE: OUTPUTTAB.
  ENDLOOP.