ABAP檔案選擇框函數

來源:互聯網
上載者:User

標籤:style   使用   strong   檔案   width   io   

因為WS_FILENAME_GET已經被廢棄所以使用介面CL_GUI_FRONTEND_SERVICES來實現本地檔案的選擇.

用介面類CL_GUI_FRONTEND_SERVICES實現的方法

 

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = ‘選擇‘

DEFAULT_EXTENSION = ‘XLS‘

DEFAULT_FILENAME = ‘defaultfilename‘

FILE_FILTER = ‘Excel檔案(*.XLS)|*.XLS|全部檔案 (*.*)|*.*|‘

* INITIAL_DIRECTORY =

* MULTISELECTION =

* WITH_ENCODING =

CHANGING

FILE_TABLE = g_text

RC = rc

* USER_ACTION =

* FILE_ENCODING =

* EXCEPTIONS

* FILE_OPEN_DIALOG_FAILED = 1

* CNTL_ERROR = 2

* ERROR_NO_GUI = 3

* NOT_SUPPORTED_BY_GUI = 4

* others = 5

.

 

 

介面CL_GUI_FRONTEND_SERVICES 的其他幾個常用方法:

 

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_EXIST

EXPORTING

FILE = LW_FILE

RECEIVING

RESULT = LW_RESULT

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

WRONG_PARAMETER = 3

NOT_SUPPORTED_BY_GUI = 4

OTHERS = 5.

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_EXIST

EXPORTING

DIRECTORY = LW_PATH

RECEIVING

RESULT = LW_RESULT

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

WRONG_PARAMETER = 3

NOT_SUPPORTED_BY_GUI = 4

OTHERS = 5.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

WINDOW_TITLE = LW_TITLE

CHANGING

FILENAME = LW_FILENAME

PATH = LW_PATH

FULLPATH = LW_FULLPATH

USER_ACTION = LW_ACTION

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

OTHERS = 4.

 

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>DIRECTORY_BROWSE

EXPORTING

WINDOW_TITLE = ‘選擇一個路徑‘

INITIAL_FOLDER = ‘Z:\‘

CHANGING

SELECTED_FOLDER = lw_folder

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

others = 4

.

方法描述:彈出選擇目錄對話方塊

SELECTED_FOLDER返回選擇目錄

 

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.