abap 函数弹出磁盘文件选择界面详解编程语言

REPORT  ZDTEST_018.


DATA:pa_file
(
50
).


* AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_file.

  
CALL 
FUNCTION 
‘WS_FILENAME_GET’

   
EXPORTING

     def_filename           
= 
‘zl’     
“?中文名

     def_path               
= 
‘c:/’

     
mask                   
= 
‘,Excel(*.xls),*.XLS.’

     
mode                   
= 
‘s’


*     TITLE                  = ”

   
IMPORTING

     filename               
= pa_file


*     RC                     =

   
EXCEPTIONS

     inv_winsys             
= 
1

     no_batch               
= 
2

     selection_cancel       
= 
3

     selection_error        
= 
4

     
OTHERS                 
= 
5

            .

  
IF sy
–subrc <> 
0.

    
MESSAGE 
ID sy
–msgid 
TYPE sy
–msgty 
NUMBER sy
–msgno

            
WITH sy
–msgv1 sy
–msgv2 sy
–msgv3 sy
–msgv4.

  
ENDIF.

 
WRITE:
‘pa_file=’,pa_file.