How to save a file as xls and allow the user to choose the dir(Path) 2

[xk120]

How can I let the user of my application save a small data set of a table into xls format (COPY TO) and then direct the xls file to a directory they choose? When I use Copy To I will default the file name/path. I want the user to be able to rename and save the xls file to anywhere they choose. [sig][/sig]

 

[foxdev]

copy to (putfile()) type xls [sig]<p>Robert Bradley<br><a href=mailto: > </a><br><a href=

http://www.foxdev.com/>FoxDev

- Visual FoxPro Development</a><br> [/sig]

 

[xk120]

Copy to (putfile()) type xls works, but when I choose to cancel without saving I get an
error
&quot; OLE error code 0x80030003 Unkown COM status code&quot;

What is this error, how do I fix it?

[sig][/sig]

 

[TomasDill]

local lcFileName
lcFileName = putfile()
if !empty(lcFileName)
Copy to (lcFileName) type xls
endif [sig]<p>Vlad Grynchyshyn<br><a href=mailto:vgryn@softserve.lviv.ua>vgryn@softserve.lviv.ua</a><br>[/sig]

 

[xk120]

Thanks, great job!!! [sig][/sig]