Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7202679
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2009-01-07 20:07:39

*---------------------------------------------------------------------*
*       FORM get_app_dir_list                                         *
*---------------------------------------------------------------------*
*       取Application目录文件列表                                     *
*---------------------------------------------------------------------*
*  -->  FILE_LIST 包含文件名和文件类型的内表                          *
*  -->  A_DIR     App服务器路径,应该为绝对路径                       *
*---------------------------------------------------------------------*
FORM get_app_dir_list TABLES file_list STRUCTURE itab_app_file_list
                      USING a_dir.
  DATA: len TYPE i.
  CLEAR file_list. REFRESH file_list. CLEAR len.
  CALL 'C_DIR_READ_FINISH'.
  CALL 'C_DIR_READ_START'
    ID 'DIR'  FIELD a_dir
    ID 'FILE' FIELD '*'.
  IF sy-subrc NE 0.
    MESSAGE e000(z900)  WITH '读取错误' a_dir.
  ENDIF.
  DO.
    CLEAR app_file.
    CALL 'C_DIR_READ_NEXT'
      ID 'TYPE' FIELD app_file-typ
      ID 'NAME' FIELD app_file-name .
    CASE sy-subrc.
      WHEN 0.
      WHEN 1.
        EXIT.
      WHEN OTHERS.
        ADD 1 TO len.
        IF len > 10.
          EXIT.
        ENDIF.
    ENDCASE.
*    CHECK app_file-typ(1) CO 'fFdD'.
    CHECK app_file-typ(1) CO 'fF'. "只要文件,不要目录
    MOVE-CORRESPONDING app_file TO file_list.
    APPEND file_list.
  ENDDO.
  SORT file_list BY typ name ASCENDING.
ENDFORM.
阅读(4659) | 评论(6) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2009-02-13 10:28:17

类也可以读到目录。

qdbarry2009-01-10 20:55:01

这是读取SAP应用服务器(Application Server)的方法,不能这样使用。 在留言中已说的很清楚了,把这个路径Mount为SAP应用服务器的一个目录

tsang_yuan2009-01-10 10:23:23

白兄你好! a_dir = \\176.16.16.11\KTSOFT\KTHR\COMDLL\KQDATA\. CALL 'C_DIR_READ_START' ID 'DIR' FIELD a_dir ID 'FILE' FIELD '*'. IF sy-subrc NE 0. MESSAGE e000(z900) WITH '读取错误' a_dir. ENDIF. 此处我的subrc = 1 提示错误哦 是什么问题呢

tsang_yuan2009-01-10 09:09:36

bowlongson 兄,你这个函数RZL_READ_DIR_LOCAL是读不到我要的文件目录 \\176.16.16.11\KTSOFT\KTHR\COMDLL\KQDATA\文件

chinaunix网友2009-01-09 11:05:53

不错,或者直接使用一个FUNCTION即可: RZL_READ_DIR_LOCAL