aca te paso la funcion que pedias
un saludo
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = p_file
DEF_PATH = 'C:\'
mask = ',*.*,*.*.'
mode = 'O'
TITLE = 'Archivo para BI'
IMPORTING
FILENAME = p_file
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.
|