FTP上传文件时文件的中文名称变为#号，解决方法

由于R&D中心需要把图纸上传到FTP服务器上,所以做了一个FTP方式的上传本地文件到FTP服务器的程序，程序做完但是出现了一些问题，贴出来大家讨论，以便给予本人解决。现谢谢各位的参与和恢复。

问题：

      1、上传的文件名称为英文或数字时没有问题，但是当文件名为中文时，传到服务器上的文件中文名称部分就全变为了#号。

    例如：本地文件名为：FILE123.TXT      上传到服务器上文件名称还是为：FILE123.TXT 
         本地文件名为：文件123.TXT       上传到服务器上文件名称变成了：###123.TXT  
         在调试跟中时走道CALL FUNCTION 'FTP_R3_TO_SERVER' 时，name2在系统中还是中文显示，

              函数完成，程序结束，文件传到服务器上，名称变为#号。

       2、如果服务器上存放文件的路径有中文，上传出现错误。
            例如：服务器路径
                          保存文件/
                      第一种  filename  = '/SAVEFILE/FILE123.TXT'.    
                      第二种 filename  = '/保存文件/FILE123.TXT'.
                      CONCATENATE  filename '' INTO name2.

       这两种格式，第一种文件上传成功，第二种提示“FTP子命令：服务器报表错误”。
       按照网上的提示把系统变量SAP_CODEPAGE 设置为 8400 等,都没有解决问题.

       测试FTP 服务器为WIN2003 SERVER版,系统自带IIS设置.

 

 

DATA: hdl TYPE i,
      key TYPE i VALUE 26101957,
      dstlen TYPE i,
      slen TYPE i,
      blob_length TYPE i.
DATA filepath TYPE string .
DATA: BEGIN OF blob OCCURS 0,
  line(100) TYPE x,
  END OF blob.
DATA: result TYPE TABLE OF text WITH HEADER LINE.

DATA:filename1 TYPE string,
     path TYPE string,
     fullpath TYPE string.

PARAMETERS:
user(30) TYPE c LOWER CASE DEFAULT 'test',
pwd(30) TYPE c LOWER CASE DEFAULT 'test',
host(64) TYPE c LOWER CASE DEFAULT '172.16.0.128',
filename(80) TYPE c DEFAULT 'test.xls',
name2(80) TYPE c DEFAULT 'test.xls',
dest LIKE rfcdes-rfcdest DEFAULT 'SAPFTP'.
PARAMETERS: p_file LIKE rlgrap-filename   DEFAULT 'c:\test.xls'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_p_file USING p_file text-006.

START-OF-SELECTION.
*  CALL SCREEN 100.
*END-OF-SELECTION .
  CALL 'AB_RFC_X_SCRAMBLE_STRING'
    ID 'SOURCE'  FIELD pwd
    ID 'KEY'  FIELD key
    ID 'SCR'  FIELD 'X'
    ID 'DESTINATION'  FIELD pwd
    ID 'DSTLEN'  FIELD dstlen.
  slen = STRLEN( pwd ).
  CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = pwd
      sourcelen   = slen
      key         = key
    IMPORTING
      destination = pwd.

  CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = user
      password        = pwd
      host            = host
      rfc_destination = dest
    IMPORTING
      handle          = hdl.

filepath = p_file.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename   = filepath
      filetype   = 'BIN'
    IMPORTING
      filelength = blob_length
    TABLES
      data_tab   = blob.
  WRITE ''.

CALL FUNCTION 'CH_SPLIT_FILENAME'
    EXPORTING
      complete_filename = filepath
    IMPORTING
      name_with_ext     = name2.

  WRITE: AT / 'Get ',p_file,' Length: ',blob_length.
  CONCATENATE  filename '' INTO name2.

  CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      handle      = hdl
      fname       = name2
      blob_length = blob_length
    TABLES
      blob        = blob.
*  CALL FUNCTION 'FTP_COMMAND'
*    EXPORTING
*      handle   = hdl
*      command  = 'PUT'
*    IMPORTING
*      filesize = blob_length
*    TABLES
*      data     = blob.
  WRITE: AT / 'Put ',name2.

  CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      handle = hdl.

FORM get_p_file  USING    l_filename    l_text.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = space
      def_path         = l_filename
      mask             = ',*.dwg ,*.dwg.'
      mode             = 'O'
      title            = l_text
    IMPORTING
      filename         = l_filename
    EXCEPTIONS
      inv_winsys       = 04
      no_batch         = 08
      selection_cancel = 12
      selection_error  = 16.
ENDFORM.                    " get_p_file*Text elements
*----------------------------------------------------------------------*
*  MODULE user_command_0100 INPUT
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'EXIT'.
      CALL FUNCTION 'GUI_FILE_LOAD_DIALOG'
         EXPORTING
           window_title            = 'DWG引入'
           default_extension       = 'DWG'
*   DEFAULT_FILE_NAME       = 'DWG'
*   WITH_ENCODING           =
*   FILE_FILTER             =
           initial_directory       =  'C:\'
         IMPORTING
           filename                = filename1
           path                    =  path
           fullpath                =  fullpath
*   USER_ACTION             =
*   FILE_ENCODING           =
                  .
      filename1 = fullpath.
  ENDCASE.
  CLEAR sy-ucomm.
ENDMODULE.                 " USER_COMMAND_0100  INP