在文本输入字段调用文件选择对话框

标签：form   local   sys   text   get   port   err   oca   输入   

PARAMETERS:path TYPE localfile.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR path.
  PERFORM choose_input_file USING path.

**choose_input_file
FORM choose_input_file USING pa_file.
  CALL FUNCTION ‘WS_FILENAME_GET‘
    EXPORTING
      def_filename     = ‘*.text‘
      def_path         = ‘D:\ ‘
      mask             = ‘,*.text.‘
      mode             = ‘w‘
      title            = ‘Choose Input File ‘
    IMPORTING
      filename         = pa_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
ENDFORM.                    "choose_input_file

在文本输入字段调用文件选择对话框

标签：form   local   sys   text   get   port   err   oca   输入   

原文地址：http://www.cnblogs.com/zxiu/p/7586482.html