ABAP 连接ftp 上传文件

左手的ㄟ右手 2022-10-27 13:54 323阅读 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. ** "连接的句柄**

**"打开ftp目录文件**  
      CALL FUNCTION 'FTP\_COMMAND'  
        EXPORTING  
          handle        = hdl  
          command       = 'cd /aa/' **"比如上传aa路径下  就这么写 /aa/**  
          compress      = compress  
        TABLES  
          data          = result  
        EXCEPTIONS  
          command\_error = 1  
          tcpip\_error   = 2.

**"备注！！！自己打印** **打开ftp目录文件** **返回结果如果不会请看其他关于ftp的文档里面有！！在这里不写了。**  
**"上传文件**  
      CALL FUNCTION 'FTP\_COMMAND'  
        EXPORTING  
          handle        = hdl  
          command       = ' put 11.DOCX'  **"' 执行 这个命令是上传的意思 注意put后面有空格   这句话意思就是上传11.DOCX文件**  
          compress      = compress  
        TABLES  
          data          = result  
        EXCEPTIONS  
          command\_error = 1  
          tcpip\_error   = 2.

**"备注！！！自己打印** **上传文件** **返回结果如果不会请看其他关于ftp的文档里面有！！在这里不写了。。**  
        IF SY-SUBRC <> 0.  
         "失败  
        ELSE.  
         "成功  
        ENDIF.