home *** CD-ROM | disk | FTP | other *** search
- /* Scandir.rexx
- * Copyright © 1995 Nils Bandener
- * $VER: scantxtdir.rexx 3.2 (27.12.95)
- */
-
- Options Results
- Address FIASCO
-
- F_RequestFile Drawersonly
-
- if rc = 0 then do
-
- directory = result
-
-
- Address Command "list >t:files" directory "lformat %s%s files all pat ~(#?.info)" /* Make a listing of all files in it */
-
- Address FIASCO
-
- if RC < 10 then do
-
- if Open("g", "t:files", "read") then do
-
- do while ~eof("g")
- file = ReadLn("g")
- if file ~= "" then do
- F_AddRecord
- F_SetFieldCont "File" file
- end
- end
-
- call Close("g")
- end
-
- end
- end
-
-