C funtion 读取目录下的所有文件 - 逻辑文件

姓名：观沧海职业：ABAP程序员背着我的行李箱昂首向前一定要在秋天到来之前爬上葡萄树!! 年龄：老大不小了掐指算算嗯... 哇塞光数自己的指头都不够啊数玩了自己的所有指头还数了旁边胖子将近10个指头才数够自己的岁数.哎一谈到年龄就感慨啊感慨胖子的手指头上的肉怎么那么多呢. 位置：济南+北京+上海+到处溜达个性介绍：有个性特有个性特别有个性有特别个性个别有特性个有特别行

阿福提供:

FORM DIRECTORY_CONTENTS_GET TABLES   PT_FILE STRUCTURE GS_FILE
                            USING    P_DIRECTORY
                                     P_FILEMASK
                            CHANGING P_OK.

  DATA:
    L_COUNTER TYPE I,
    L_COUNTER_PACKAGE TYPE I,
    L_CHAR10(10),
    L_TEXT(100),
    L_SUBRC LIKE SY-SUBRC,
    LS_FILE LIKE GS_FILE.

  CLEAR PT_FILE[].

  CALL 'C_DIR_READ_FINISH'
      ID 'ERRNO'  FIELD LS_FILE-ERRNO
      ID 'ERRMSG' FIELD LS_FILE-ERRMSG.

  CALL 'C_DIR_READ_START' ID 'DIR'    FIELD P_DIRECTORY
                          ID 'FILE'   FIELD '*'
                          ID 'ERRNO'  FIELD LS_FILE-ERRNO
                          ID 'ERRMSG' FIELD LS_FILE-ERRMSG.

  DATA: G_FILENAME(50).
  DATA: T_N TYPE P.
  DO .

    CLEAR LS_FILE.
    CALL 'C_DIR_READ_NEXT'
      ID 'TYPE'   FIELD LS_FILE-TYPE
      ID 'NAME'   FIELD LS_FILE-NAME
      ID 'LEN'    FIELD LS_FILE-LEN
      ID 'OWNER'  FIELD LS_FILE-OWNER
      ID 'MTIME'  FIELD LS_FILE-MTIME
      ID 'MODE'   FIELD LS_FILE-MODE
      ID 'ERRNO'  FIELD LS_FILE-ERRNO
      ID 'ERRMSG' FIELD LS_FILE-ERRMSG.
    IF SY-SUBRC NE 0.
      EXIT.
    ENDIF.
    IT_FILENAME-FILENAME = LS_FILE-NAME.
    APPEND IT_FILENAME.
    CLEAR IT_FILENAME.

  ENDDO.
ENDFORM.                    "DIRECTORY_CONTENTS_GET

只做 Cfuncion 的技术探讨.

建议用Function '/SAPDMC/LSM_F4_SERVER_FILE'
(http://blog.chinaunix.net/u1/54266/showart_493967.html Victor.Pan博客
)
读取文件.