*&---------------------------------------------------------------------* *& Report ZQIANG_001 *& *&---------------------------------------------------------------------* *&打开文件或网址 *& *&---------------------------------------------------------------------* REPORT zqiang_001. PARAMETERS: PATH TYPE SO_TEXT255. AT SELECTION-SCREEN ON VALUE-REQUEST FOR PATH. PERFORM CHOOSE_INPUT_FILE USING PATH. START-OF-SELECTION. CALL FUNCTION 'CALL_INTERNET_ADRESS' EXPORTING PI_ADRESS = path"'www.baidu.com'"PATH EXCEPTIONS NO_INPUT_DATA = 1 OTHERS = 2. *&---------------------------------------------------------------------* *& Form CHOOSE_INPUT_FILE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM CHOOSE_INPUT_FILE USING P_PATH. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING DEF_FILENAME = '*.*' DEF_PATH = 'C:/' MASK = ',*.*.' MODE = 'O' TITLE = 'Choose File' IMPORTING FILENAME = P_PATH EXCEPTIONS INV_WINSYS = 1 NO_BATCH = 2 SELECTION_CANCEL = 3 SELECTION_ERROR = 4 OTHERS = 5. ENDFORM. " CHOOSE_INPUT_FILE