ABAP 连接ftp 删除某个文件

痛定思痛。 2022-10-27 13:53 141阅读 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.  "连接的句柄

"删除远程文件夹下目录某个文件 。。。。。。start........  
  DATA :  del\_filename      TYPE char255 .  
  DATA: BEGIN OF result OCCURS 0,  
          line(100) TYPE c,  
        END OF result.  
  CALL FUNCTION 'FTP\_COMMAND'  
    EXPORTING  
      handle        = hdl  
      command       =  mdelete /ftp路径/a文件夹下/aa.DOCX'    **"ftp删除命令**  
      compress      = compress  
    TABLES  
      data          = result  
    EXCEPTIONS  
      command\_error = 1  
      tcpip\_error   = 2.

LOOP AT result.  
  WRITE AT / result-line.  
ENDLOOP.  
REFRESH result.

IF SY-SUBRC <> 0.  
    "删除失败

ELSE.  
    "删除成功  
  ENDIF.

\*   断开FTP连接  
  CALL FUNCTION 'FTP\_DISCONNECT'  
    EXPORTING  
      handle = hdl.  
\*   断开RFC链接  
  CALL FUNCTION 'RFC\_CONNECTION\_CLOSE'  
    EXPORTING  
      destination = dest  
    EXCEPTIONS  
      OTHERS      = 1.