Hi Scott,
how about OPENSEQ?
or if the files are in your local account (and are not subdirectories)
OPEN "&UFD&" TO UFD ELSE STOP
READV EXISTS FROM UFD, FILENAME, 0 ON ERROR
ANS = @FALSE
END THEN
ANS = @TRUE
ELSE
ANS = @FALSE
END
HTH,
Craig
Scott Ballinger wrote:
I have a standard subroutine that I use in UV BASIC when I need to check for
the existence (or non-existance) of a unix file:
FILE.TEST.SUB
0001 SUB(FILENAME,ANS)
0002 * return ans = 1 if filename exists
0003 * redirect to bit bucket to suppress 'not on file' msg
0004 * filename includes full path to file
0005 EXECUTE "SH -c 'ls -d ":FILENAME:" 2> /dev/null'" CAPTURING XXX
0006
0007 FN = FILENAME
0008 CONVERT "\" TO "" IN FN ;* in case we escaped any special characters
0009
0010 IF XXX<1> EQ FN THEN ANS = 1 ELSE ANS = 0
0011
0012 RETURN
0013
It works fine, but seems pretty slow, particularly if I am churning though
thousands of tests (like from a big select list).
Can anyone suggest a faster/more efficient way to test if a unix level file
exists from inside UV BASIC ?
Thanks,
/Scott Ballinger
Pareto Corporation
Edmonds WA USA
206 713 6006
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
--
Craig Bennett
Director
Amajuba Pty Ltd
Phone: 02 9987 0161
Mobile: 0412448781
Fax: 02 8456 5943
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
