自写ABAP程序-设置ALV及LIST等的下载默认路径.doc

自写ABAP程序－设置ALVLIST等的下载默认路径 ? HKEY_CURRENT_USER\Software\SAP\SAPGUI Front\SAP Frontend Server\Filetransfer ? 另外，HKEY_CURRENT_USER\Software\SAP\SAPGUI Front\SAP Frontend Server\Code下面放的是最近执行的TCODE，即命令栏Comobox里面的 ? ? REPORT? z_barry_regedit. ? PARAMETERS : p1(150) TYPE c OBLIGATORY ,???????????? p2(150) TYPE c OBLIGATORY ,???????????? p3(150) TYPE c OBLIGATORY .DATA:pstr TYPE string ,???? rc TYPE i , rcc TYPE c ,???? ans TYPE c . ? INITIALIZATION.? PERFORM get_reg. ? AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1.? PERFORM get_path_f4 USING p1. ? AT SELECTION-SCREEN ON VALUE-REQUEST FOR p2.? PERFORM get_path_f4 USING p2. ? AT SELECTION-SCREEN ON VALUE-REQUEST FOR p3.? PERFORM get_path_f4 USING p3. ? AT SELECTION-SCREEN.? PERFORM check_directory_exist USING p1 rcc .? IF rcc = .??? MESSAGE e000(oo) WITH Path路径不存在！.? ENDIF.? PERFORM check_directory_exist USING p2 rcc .? IF rcc = .??? MESSAGE e000(oo) WITH PathDownload路径不存在！.? ENDIF.? PERFORM check_directory_exist USING p3 rcc .? IF rcc = .??? MESSAGE e000(oo) WITH PathUpload路径不存在！.? ENDIF. ? START-OF-SELECTION.? CALL FUNCTION POPUP_TO_CONFIRM??? EXPORTING????? titlebar????? = 确认更新????? text_question = 确认更新数据？??? IMPORTING????? answer??????? = ans.? IF ans 1? .??? LEAVE PROGRAM .? ENDIF .? PERFORM set_reg. ? *---------------------------------------------------------------------**????? Form? get_path*---------------------------------------------------------------------*FORM get_path_f4 USING para .? CALL METHOD cl_gui_frontend_services=directory_browse??? EXPORTING????? window_title??? = File Directory????? initial_folder? = C:\??? CHANGING????? selected_folder = pstr.? CALL METHOD cl_gui_cfw=flush.? para = pstr .ENDFORM.??????????????????? get_path *---------------------------------------------------------------------**????? Form? check_DIRECTORY_EXIST*---------------------------------------------------------------------*FORM check_directory_exist USING p result .? pstr = p.?