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

linsen831214

于 2010-06-23 20:31:00 发布

阅读量622

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP ABAP 文章标签： path query function download upload header

本文链接：https://blog.youkuaiyun.com/linsen831214/article/details/5690135

SAP ABAP 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言实现的文件路径验证及目录读取过程。通过调用WS_QUERY函数验证文件路径的有效性，并利用KCD_FRONT_END_DIRECTORY_READ函数获取指定路径下的文件目录列表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.