I always do it like this:
create the file enter.pla that just has a carriage return in it.
set var microrim_menu_pos int = 1
playback enter.pla
choose vfile from .....
This will select the first item in the choose command, you just need to be
careful in the event there is nothing in the choose command.
Troy Sosamon
===== Original Message from [EMAIL PROTECTED] at 3/27/02 9:41 am
>I am trying to get a playback file to automatically select the first
>filename in a predefined directory and update a column in a table with that
>filename.
>
>The object of this exercise is to set a default file for photos
>automatically, without having to manually select a file from a list by
>clicking on the filenames from a choose command.
>
>I have been able to get my program to set the directory, but the problem
>comes when the playback file does not execute a carriage return and thus not
>selecting the first file name from within a directory menu.
>
>Here is my code:
>
>UpdRefNum - sets all variables for the playback file.
>
>cls
>cle all variables
>set messages off
>set error messages off
>set v vIdNum int=null
>set v vRefNum tex=null
>set v vDir tex=null
>set v vFile tex=null
>set v vplay tex=null
>declare c#1 cursor for select idnum,col00011,photodir fro lease+
> order by idnum
>open c#1
>fetch c#1 into vidnum vi1,vrefnum vi2,vdir vi3
>whi sqlcode <> 100 the
> set v vdir=(.vdir+'*.jpg')
> set v vck=(chkfile(.vdir))
> if vck=1 the
> set v vplay tex =('cho vfile fro #lfiles in'&'.vdir'+char(10))
> out jpgplay.pla
> wri .vplay
> out screen
> play jpgplay.pla
> update lease set photodef=.vfile whe current of c#1
> endi
> fetch c#1 into vidnum vi1,vrefnum vi2,vdir vi3
>endwhi
>drop cursor c#1
>ret
>
>I've tried both Char(10) and Char(13) without success.
>
>Any help or comments would be greatly appreciated.
>
>
>
>Bill Eyring
>Director of Information Systems
>Michael Haberman Associates, Inc.
>125 Front Street, Mineola, N.Y. 11501
>516-739-8080
>Rbase Developer
>
>================================================
>TO SEE MESSAGE POSTING GUIDELINES:
>Send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: INTRO rbase-l
>================================================
>TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
>In the message body, put just two words: UNSUBSCRIBE rbase-l
>================================================
>TO SEARCH ARCHIVES:
>http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
