home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / utilities / misc / databases / amigabase / arexx / rx·dir < prev    next >
Encoding:
Text File  |  1994-11-17  |  291 b   |  14 lines
  1. /* FILE REQUESTER */
  2.  
  3. OPTIONS RESULTS
  4. PARSE ARG modulname funcname
  5.  
  6. CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
  7. dirname = rtfilerequest(,,"Wähle ein Directory ...", "Ok", "rtfi_flags = freqf_nofiles",)
  8.  
  9. ADDRESS "REXX_AB1"
  10.  
  11. Project modulname
  12. IF RESULTS > 1 THEN Function funcname dirname
  13.  
  14.