#ZSPLIT_WIN_FILE_PATH
#
FUNCTION zsplit_win_file_path.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(I_PATH) TYPE STRING
*" EXPORTING
*" REFERENCE(E_DIRECTORY) TYPE STRING
*" REFERENCE(E_FILENAME) TYPE STRING
*" REFERENCE(E_EXTENSION) TYPE STRING
*"----------------------------------------------------------------------
CONSTANTS c_sep TYPE char1 VALUE '\'.
SPLIT i_path AT c_sep INTO TABLE DATA(lt_elms).
DESCRIBE TABLE lt_elms LINES DATA(lv_len).
READ TABLE lt_elms INDEX lv_len INTO e_filename.
DELETE lt_elms INDEX lv_len.
SPLIT e_filename AT '.' INTO TABLE DATA(lt_name_elms).
DESCRIBE TABLE lt_name_elms LINES DATA(lv_name_len).
READ TABLE lt_name_elms INDEX lv_name_len INTO e_extension.
CONCATENATE LINES OF lt_elms INTO e_directory SEPARATED BY c_sep.
ENDFUNCTION.