ABAP中对上传文件和下载文件的一般检查.docxVIP

ABAP中对上传文件和下载文件的一般检查 文件检查的一般方法。实用。 设计一些通用模块，和使用方法。 1， 首先对要上传的文件进行存在检查。 （在AT SELECTION-SCREEN事件下完成） CALL METHOD CL_GUI_FRONTEND_SERVICES=gt;FILE_EXIST EXPORTING FILE = LW_FILE RECEIVING RESULT = LW_RESULT EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 WRONG_PARAMETER = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5. IF SY-SUBRC lt;gt; 0. SET CURSOR FIELD #39;P_UPFILE#39;. quot;カーソルをセット *----- システムメッセージ出力 MESSAGE ID SY-MSGID TYPE #39;E#39; NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. *----- チェック結果判定 IF LW_RESULT lt;gt; CNS_TRUE. quot;ファイル存在しない SET CURSOR FIELD #39;P_UPFILE#39;. quot;カーソルをセット *----- MSG: アップロードファイル amp;1 は存在しません MESSAGE E116(ZNKCC1) WITH P_UPFILE. ENDIF. 2， 对于指定下载到本地的文件，首先，将屏幕上输入的路径和文件名分隔开来，（在AT SELECTION-SCREEN事件下完成） *----- CALL 汎用モジュール CALL FUNCTION #39;SO_SPLIT_FILE_AND_PATH#39; EXPORTING FULL_NAME = P_ERFILE IMPORTING STRIPPED_NAME = W_FILE FILE_PATH = P_O_PATH EXCEPTIONS X_ERROR = 1 OTHERS = 2. IF SY-SUBRC lt;gt; 0. SET CURSOR FIELD #39;P_ERFILE#39;. quot;カーソルをセット *----- システムメッセージ出力 MESSAGE ID SY-MSGID TYPE #39;E#39; NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. 其次，检查分隔得到的文件路径（路径是否存在）。（在AT SELECTION-SCREEN事件下完成） CALL METHOD CL_GUI_FRONTEND_SERVICES=gt;DIRECTORY_EXIST EXPORTING DIRECTORY = LW_PATH RECEIVING RESULT = LW_RESULT EXCEPTIONS CNTL_ERROR = 1 ERROR_NO_GUI = 2 WRONG_PARAMETER = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5. IF SY-SUBRC lt;gt; 0. SET CURSOR FIELD #39;P_ERFILE#39;. quot;カーソルをセット MESSAGE ID SY-MSGID TYPE #39;S#39; NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. 3， 实现对上传文件的检索帮助。 （在AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_UPFILE.事件下完成） CALL METHOD CL_GUI_FRONTEND_SERVICES=gt;FILE_OPEN_DIALOG EXPORTING WINDOW_TITLE = LW_TITLE quot;ファイル選択 CHANGING FILE_TABLE = LTD_FILE RC = LW_RETURN quot;リターン値 USER_ACTION = LW_ACTION quot;動作結果 EXCEPTIONS FILE_OPEN_DIALOG_FAILED = 1 CNTL_ERROR = 2 ERROR_NO_GUI = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5. *----- リター