Code not woking

Please get the code workig. i want to have the user-selection of DIR in a variable.if its not possible this way, plz suggest other solution.

reward guranteed.

DATA: DIR_SEL TYPE STRING.

CALL METHOD cl_gui_frontend_services=>directory_browse

EXPORTING

WINDOW_TITLE = 'Select Folder'

INITIAL_FOLDER = 'C:\'

CHANGING

selected_folder = DIR_SEL

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

others = 3.

write:/ DIR_SEL,'*******'.