PARAMETERS:l_file TYPE localfile.DATA:status TYPE c.*保存文件夹路径DATA:BEGIN OF folder OCCURS 0, dire TYPE localfile, END OF folder.*保存文件夹路径识别符号DATA:BEGIN OF sign OCCURS 0, sig TYPE c, END OF sign.START-OF-SELECTION. CLEAR:folder[],sign[],status.*新增文件夹路径识别符号，如果没有相关符号则辨别为无效路径 sign-sig = '/'. APPEND sign. sign-sig = '\'. APPEND sign. SEARCH l_file FOR sign.*判断文件夹路径字符串是否有效，无效则提示错误并退出 IF sy-subrc <> 0. MESSAGE e001(00) WITH 'Not valuable directory'. EXIT. ELSE.*检查该文件夹路径是否已经保存 PERFORM checkdir USING l_file CHANGING status. IF status = 1. MESSAGE i001(00) WITH 'The Directory is exit!'. EXIT. ENDIF. ENDIF. SPLIT l_file AT sign INTO TABLE folder. READ TABLE folder INDEX 1. l_file = folder-dire."内表的第一行为盘符*循环读取文件夹字符，检查该路径是否存在，若不存在则创建 LOOP AT folder. IF sy-tabix > 1. CONCATENATE l_file '\' folder-dire INTO l_file. PERFORM checkdir USING l_file CHANGING status. IF status = 0. PERFORM createdir USING l_file. ENDIF. ENDIF. ENDLOOP.**************************************************************************** 调用函数检查路径是否存在，若存在函数返回‘1‘，否则返回’0‘。 ****************************************************************************FORM checkdir USING dir TYPE localfile CHANGING ret TYPE c. CALL FUNCTION 'WS_QUERY' EXPORTING filename = dir query = 'DE' IMPORTING return = ret "1 Success 0 Fail" EXCEPTIONS inv_query = 1 no_batch = 2 frontend_error = 3 OTHERS = 4.ENDFORM. "checkdir**************************************************************************** 调用函数根据路径创建文件夹。 ****************************************************************************FORM createdir USING dir TYPE localfile. CALL FUNCTION 'GUI_CREATE_DIRECTORY' EXPORTING dirname = dir EXCEPTIONS failed = 1 OTHERS = 2. WRITE: / 'Create director success,Path:',dir.ENDFORM. "createdir