ABAP 调用文件或打开网页

*&---------------------------------------------------------------------*
*& 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