Sorry si si no problemo jeje pongo el codigo.
La funcion seria 'WS_FILENAME_GET'.
FORM seleccion_ruta.
CALL FUNCTION 'WS_QUERY'
EXPORTING
QUERY = 'CD'
IMPORTING
RETURN = PATH_PC.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = Examinar
DEF_PATH = Examinar
MASK = ',Hoja calculo(*.xls),*.xls,Archivo de texto(*.txt),*.
txt, *.*'
MODE = '0'
TITLE = 'Abrir fichero'
IMPORTING
FILENAME = Examinar
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE 'Error de la aplicación.'TYPE 'I'.
ENDIF.
ENDFORM.
Cambiando el mode entre "O" (open) Y "S" (save) controlamos lo que queremos que nos aparezca en la ventana; "guardar" o " abrir"
|