home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / pd / database / fiasco_1.1 / databases / picturedatabase / scandir.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-04-30  |  812 b   |  41 lines

  1. /* Scandir.rexx
  2.  * Support script for pictures.fdb
  3.  * Copyright © 1995 Nils Bandener
  4.  * $VER: scandir.rexx 3.2 (6.12.95)
  5.  */
  6.  
  7. Options Results
  8. Address FIASCO
  9.  
  10. F_RequestFile Drawersonly
  11.  
  12. if rc = 0 then do
  13.  
  14.     directory = result
  15.  
  16.  
  17.     Address Command "list >t:files" directory "lformat %s%s files pat ~(#?.info)"    /* Make a listing of all files in it */
  18.  
  19.     Address FIASCO
  20.  
  21.     F_SelectProj "pictures.fdb"     /* Only to be sure, that this is the right one */
  22.  
  23.     if RC < 10 then do
  24.  
  25.         if Open("g", "t:files", "read") then do
  26.  
  27.             do while ~eof("g")
  28.                 file = ReadLn("g")
  29.                 if file ~= "" then do
  30.                     F_AddRecord
  31.                     F_SetFieldCont "Picture" file
  32.                 end
  33.             end
  34.  
  35.             call Close("g")
  36.         end
  37.  
  38.     end
  39. end
  40.  
  41.