home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / Fiasco_2.2 / ARexx / requestdt.frx < prev    next >
Encoding:
Text File  |  1998-10-06  |  442 b   |  26 lines
  1. /* RequestDT.frx
  2.  * Open a file requester for a datatypes field
  3.  * Usage: RequestDT.frx <FieldID>
  4.  * Copyright © 1996-1997 Nils Bandener
  5.  * $VER: RequestDT.frx 6.1 (22.9.97)
  6.  */
  7.  
  8. Options Results
  9. Parse Arg Field
  10.  
  11. GetField '"' || Field || '"'
  12. File = Result
  13.  
  14. if rc = 0 then
  15. do
  16.     RequestFile '"' || File || '"' ProjectRelative
  17.  
  18.     if rc = 0 then
  19.     do
  20.         File = Result
  21.  
  22.         SetField '"' || Field || '" "' || File || '"'
  23.  
  24.     end
  25. end
  26.