ARexx (71/81)

From:Brian Scott
Date:7 Jun 2001 at 11:02:05
Subject:Re: How do I check files exist and are the same?

Hello Andrew

Here's something to play with for checking sizes..

devinfo='T:devinfo'
dev='DF1:' /* device being checked */

ADDRESS command ('info >'devinfo dev) /* standard ADOS info command */

CALL open('r',devinfo,'r');dinfo=readch('r',300);CALL close('r')

parse var dinfo . (dev) size used free full errs status name .

say "size:"size "used:"used "free:"free "full:"full "errs:"errs
"status:"status "name:"name

Brian

ARexx mailing list - No flames, no overquoting, no crossposting.
Unsub: Blank mail to mailto:arexx-unsubscribe@yahoogroups.com

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/