ABAP中对上传文件和下载文件的一般检查PDF打印版.pdfVIP

学 海 无 涯 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. 1 学 海 无 涯 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 EXPORT