Capturing file name with explorer

[Ian Wood]

Why use windows explorer at all?  Use filePro's OPENDIR command.

something like this:

::dim flelst[200](120,*):
::declare local bksl(1,allup,g):
::declare local dbqt(1,allup,g):
::declare local ctr1(3,.0):
::declare local ctr2(3,.0):
::declare local open_ctr(3,.0):
::declare local close_ctr(3,.0):
::declare local file_ctr(3,.0):
::declare global csv_name(120,*,g):
::declare extern dir_name:
::declare extern ext_name:
bldfile:'build the table of .CSV files in the folder::
::ctr1="0"; ctr2="1":
::dbqt=chr("34"):
::open_ctr=opendir("*"{ext_name{"",dir_name):
zloop:::
:ctr2 gt open_ctr:goto donez:
::ctr1=ctr1+"1":
::flelst[ctr1]=@dirlist_name[ctr1]{"."{@dirlist_ext[ctr1]:
nextz:::
::ctr2=ctr2+"1":
::goto zloop:
donez:::
::file_ctr=listbox(flelst,"1",ctr1):
:file_ctr le "0":end:
::csv_name=flelst[file_ctr]:
::close_ctr=closedir():
::end:

I pass the directory name and extension type from the calling routine, but
you should be able to manipulate this to what you need.


On Fri, Nov 22, 2013 at 8:52 AM, Richard Tartaglia <fp_rich at yahoo.com>wrote:

> Good morning everyone.
>
> Windows XP pro, FilePro 5.0.15
>
> I would like to use a system command to open explorer, pick a file
> and place it in a filepro variable.
>
> Any suggestions would be greatly appreciated.
>
> Thanks
>
> Rich
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://mailman.celestial.com/pipermail/filepro-list/attachments/20131122/ce0b62d2/attachment.html
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20131122/5baccbe5/attachment.html