Validation of file path

Question

Hi all,
I need to validate the filepath while downloading the excel file. To elaborate this, When user is given a space on screen to put on the path where the he wants to save the excel file, I need to check that path, whether its valid or not.
Please tell me if there is any FM or any method to do it?
Regards,
Nikita
Edited by: Nikita Jain on Oct 17, 2008 2:29 PM

Answer 1

Hi
Check the following Code
types for data to be downloaded
types: begin of tp_kna1,
KUNNR type kna1-kunnr, " customer number
LAND1 type kna1-land1, " Country Key
NAME1 type kna1-name1, " customer name
ORT01 type kna1-ort01, " city
PSTLZ type kna1-pstlz, " postal code
REGIO type kna1-regio, " region
end of tp_kna1.
I n t e r n a l T a b l e s
Internal table for data to be downloaded
data: it_kna1 type standard table of tp_kna1 with header line.
S e l e c t i o n S c r e e n
selection-screen begin of block b1 with frame title text-001.
parameters: p_afile type rlgrap-filename
default 'customer.txt'.
selection-screen end of block b1.
At selection screen on value request
at selection-screen on value-request for p_afile.
*--Get the F4 help for Sales Deal File
perform get_val_help changing p_afile .----
S t a r t o f s e l e c t i o n
start-of-selection.
Upload the data from Sales Deal file
perform upload_app_file.
end-of-selection.
perform write_data.
*& Form upload_app_file
Upload the application server file data
form upload_app_file.
data: l_msg(100). " error message
open dataset p_afile for input in text mode encoding default message
l_msg.
if sy-subrc 0.
message i004 with l_msg.
else.
do.
read dataset p_afile into it_kna1.
if sy-subrc = 0.
append it_kna1.
clear it_kna1.
else.
exit.
endif.
enddo.
close dataset p_afile.
endif.
endform. " upload_app_file
*& Form write_data
text
--> p1 text
<-- p2 text
FORM write_data .
loop at it_kna1.
write:/ it_kna1-kunnr,
it_kna1-land1,
it_kna1-name1,
it_kna1-ort01,
it_kna1-pstlz,
it_kna1-regio.
endloop.
ENDFORM. " write_data
*& Form get_val_help
Get F4 help for the File name
form get_val_help changing p_file type rlgrap-filename.
call function 'F4_FILENAME'
importing
file_name = p_file
exceptions
others = 1.
if sy-subrc 0.
message e001. " File Open Error
endif.
endform. " get_val_help
Regards
Rajesh