【原创】ABAP根据文件路径获取文件所在目录

 *&---------------------------------------------------------------------*
 *&      Form  frm_get_path
 *&---------------------------------------------------------------------*
 *       获取文件所在目录
 *----------------------------------------------------------------------*
 *      -->IV_FULLPATH  文件全路径
 *      -->CV_PATH      文件所在目录
 *----------------------------------------------------------------------*
 FORM frm_get_path USING     iv_fullpath TYPE string
                   CHANGING  cv_path     TYPE string.
   DATA: lv_length       TYPE i,
         lv_index        TYPE i,
         lv_total_lines  TYPE i,
         lt_split_table  TYPE TABLE OF string.

   FIELD-SYMBOLS: <ls_split_table> LIKE LINE OF lt_split_table.

 * 检查文件全路径参数是否为空
   lv_length = strlen( iv_fullpath ) - .
   CHECK lv_length GE .

 * 检查文件全路径参数是否是文件目录格式
   IF iv_fullpath+lv_length(*) = '\'.
     cv_path = iv_fullpath.
     EXIT.
   ENDIF.

 * 获取文件所在目录
   SPLIT iv_fullpath AT '\' INTO TABLE lt_split_table.
   DESCRIBE TABLE lt_split_table LINES lv_total_lines.
   LOOP AT lt_split_table ASSIGNING <ls_split_table>.
     lv_index = lv_index + .
     IF lv_index = .
       CONCATENATE <ls_split_table> '\' INTO cv_path.
     ELSEIF lv_index = lv_total_lines.
       CONTINUE.
     ELSE.
       CONCATENATE cv_path <ls_split_table> '\' INTO cv_path.
     ENDIF.
   ENDLOOP.

 ENDFORM.                    "frm_get_path

结果如下图：

【原创博文，欢迎大家批评指正！如需转载请注明出处 http://www.cnblogs.com/shelwin/p/3253171.html 】