Re: File list from server in dev2K?
From: Gudrun Janssen <janssen_at_itu.fzk.de>
Date: Tue, 06 Apr 1999 10:15:09 +0200
Message-ID: <3709C28D.E9CAD4E8_at_itu.fzk.de>
> ie: I want the results of DIR X:/somedir/*.txt where X is a networked
> drive. I want to call miracle('X:/somedir/*.txt'); and pass the result
> back to a non-database block. (I must be able to pass the directory as a
> param)
> The only option I can find is a user_exit but the online documentation
> is sadly lacking. Do you have any useful examples of user_exits?
> or indeed is there an easier way to obtain a list of files in a
> directory within forms 5.
> ?
> Thanks
> Steve
> p.s client is win95, server is nt4.
> --
> Please remove nospam from my address to Reply.
Received on Tue Apr 06 1999 - 10:15:09 CEST
Date: Tue, 06 Apr 1999 10:15:09 +0200
Message-ID: <3709C28D.E9CAD4E8_at_itu.fzk.de>
Hi Steve,
try this:
DECLARE
v_filename varchar2(255);
BEGIN
/*
- v_filename := get_file_name(:parameter.casedir,NULL, */ [Quoted] v_filename := get_file_name('X:\SOMEDIR',NULL, 'Text Files (*.txt)|*.txt|', NULL, OPEN_FILE );
:parameter.somefile := v_filename;
/* * miracle(:parameter.somefile); * * this statement calls miracle with the file, the user * selected, not exactly what you want, I think. * */
END; Hope it helps.
Gudrun
Steve Haynes wrote:
> Hi All,
> I have a requirement to produce a form for client use which provides a
> list of files found in a nominated server directory. The user would then
> highlight a file and hit a button and various irrelevant things happen.
>
> ie: I want the results of DIR X:/somedir/*.txt where X is a networked
> drive. I want to call miracle('X:/somedir/*.txt'); and pass the result
> back to a non-database block. (I must be able to pass the directory as a
> param)
>
> The only option I can find is a user_exit but the online documentation
> is sadly lacking. Do you have any useful examples of user_exits?
> or indeed is there an easier way to obtain a list of files in a
> directory within forms 5.
> ?
> Thanks
> Steve
> p.s client is win95, server is nt4.
> --
> Please remove nospam from my address to Reply.
Received on Tue Apr 06 1999 - 10:15:09 CEST