#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.