Search This Blog

Monday, July 27, 2009

Open File Dialog

OPEN DIALOGDATA:
----------------------------------------------------------------------------------------
it_tabmann TYPE filetable,
rc_mann TYPE i.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING
WINDOW_TITLE = 'Open a File'
DEFAULT_EXTENSION = ',*.txt,*.txt,*.xls,*.xls,*.doc,*.doc, **,*.*,*.*.'
DEFAULT_FILENAME = 'test.txt'
INITIAL_DIRECTORY = 'c:\temp'
multiselection = ' ' "No multiple selection
CHANGING
FILE_TABLE = it_tabmann
RC = rc_mann
EXCEPTIONS
FILE_OPEN_DIALOG_FAILED = 1
CNTL_ERROR = 2
ERROR_NO_GUI = 3
NOT_SUPPORTED_BY_GUI = 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.
LOOP AT it_tabmann INTO p_input.ENDLOOP.
--------------------------------------------------------------------------------------

No comments:

Post a Comment