home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / rexx / 975 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  1.7 KB
  1. Path: sparky!uunet!munnari.oz.au!uniwa!DIALix!acix!johnv
  2. From: johnv@acix.DIALix.oz.au (John Verhoeven)
  3. Newsgroups: comp.lang.rexx
  4. Subject: Re: Requesters.. How do i get rid of 'em..
  5. Distribution: world
  6. Message-ID: <johnv.02iy@acix.DIALix.oz.au>
  7. References:  <jasienrt.03oi@outb.wimsey.bc.ca>
  8. Date: 9 Sep 92 16:54:18 WST
  9. Organization: ACix - Private UUCP Node, Cloverdale, Western Australia.
  10. Lines: 35
  11.  
  12. In article <jasienrt.03oi@outb.wimsey.bc.ca> jasienrt@outb.wimsey.bc.ca (Jason Sienart) writes:
  13. >In ARexx.. How can i check if an assign/disk/partion exists. Well what i mean
  14. >is how can i find out if it exists without a requester poping up. I phone my
  15. >computer from remotely and hate crashing my BBS with a requester waiting for me to insert hhh: in any drive..
  16.  
  17. try:
  18.  
  19. if ~showlist('V','FOO') then    /* no colon needed, device name must be in uppercase */
  20.     /* do something */
  21. end
  22.  
  23. 'V' shows disk volumes
  24. 'A' shows assigns
  25. 'H' shows devices
  26.  
  27. 1> "say showlist('V')      
  28. RAM_DISK NEWS DEVELOPMENT RECORDS ANIMATIONS RAD_DISK SYSTEM2.0
  29.  
  30. 1> "say showlist('A')
  31. ENVARC SYS C S LIBS DEVS FONTS L CLIPS T TMP FD AUTODOCS FORTUNE VLT LINT
  32. II1 IH2 IH1 UUCP UUMAN DH0 PROWRITE ANL AMIGAVISION TUTORIAL_2 TUTORIAL_1
  33. SBPRO4 DELUXEPAINTIII DPAINTIV DPAINT QUARTERBACK M2 M2L GCC LOCAL DEV ETC
  34. LIB USR BIN INSTRUMENTS SCORES ENV CONTACT REXX AUTODOC_PAGES II2 IH3
  35. DOWNLOADS UUSPOOL UUPUBW UUPUB UUNEWS UUMAIL UULIB GETTY ARCHIVE
  36.  
  37. 1> "say showlist('H')
  38. MSH CON PIP IXPIPE NULL AUX SPEAK RAM RAW SER PAR PRT WB_2.X DF0 UNIX_BOOT
  39. RAD DF2 DH4 DH1 DH2 DH3
  40.  
  41. --
  42.  
  43. John Verhoeven                        johnv@acix.DIALix.oz.au      _--_|\
  44. Treasurer, Amiga Developers           (ALT: johnv@DIALix.oz.au)   /      \
  45. Association of Western Australia      Phone: (+619) 478 1406      *_.--._/
  46.  
  47.