ABAP 连接ftp 并且查看某个路径下文件名称

客官°小女子只卖身不卖艺 2022-10-27 05:12 175阅读 0赞

DATA :    
        p\_host   TYPE char64 VALUE '192.168.100.64 21',"  IP  
        p\_folder TYPE char255 VALUE '/aa/bb/',  "ftp 路径  
        p\_uname  TYPE char30 VALUE 'sys' , "用户名称  
        p\_pwd    TYPE char30 VALUE 'psword' . "用户密码  
  
DATA : dest     LIKE rfcdes-rfcdest  VALUE 'SAPFTP',  
            compress TYPE c  VALUE 'N'.  
  
DATA: hdl     TYPE i,  
      key     TYPE i VALUE 26101957,  
      slen    TYPE i,  
      cmd(80) TYPE c.  
  
slen = strlen( p\_pwd ).  
  
**\* "获取加密密码 保存到P\_PWD**  
CALL FUNCTION 'HTTP\_SCRAMBLE'  
  EXPORTING  
    source      = p\_pwd  
    sourcelen   = slen  
    key         = key  
  IMPORTING  
    destination = p\_pwd.  
  
**\* 连接ftp服务器**  
CALL FUNCTION 'FTP\_CONNECT'  
  EXPORTING  
    user            = p\_uname  
    password        = p\_pwd  
    host            = p\_host  
    rfc\_destination = dest  
  IMPORTING  
    handle          = hdl.  "连接的句柄

"IF SY-SUBRC <> 0.  
"\*-  &1失败  
"ELSE.  
"\*- 成功    
"ENDIF.

**"获取ftp 某个目录下文件集合 、、start ..、**  
DATA result\_file\_name(300) TYPE c .  
DATA: BEGIN OF result OCCURS 0,  
        line(100) TYPE c,  
      END OF result.  
CALL FUNCTION 'FTP\_COMMAND'  
  EXPORTING  
    handle        = hdl  
    command       =   'nlist /a/b/c/'    " 通过nlist 查看ftp下某个路径下文件 **(注意nlist后面有个空格)**  
    compress      = compress  
  TABLES  
    data          = result  
  EXCEPTIONS  
    command\_error = 1  
    tcpip\_error   = 2.  
LOOP AT result.  
  WRITE AT / result-line.  "这里面就是获取的ftp某个路径下文件名称  
ENDLOOP.