I am creating a rexx script to copy all file names without their 
extensions to a file.
It works with 2 problems:
1. The directory names are listed as a bunch at the beginning but I want 
each directory name above the files it contains.
2. It works everywhere except on a big directory of music files (33GB, 
4000 files). The script does not complete, cpu goes to 99.9 and ram goes 
steadily down to zero.


Here is the guts of it:

rx = SysFileTree(searchcrit, 'flist', 'BOS')

if rx \= 0 then do
   say "Error collecting file information, rc" rx
   return rx
end

do i=1 to flist.0

   spec = filespec('name', flist.i

   if length(spec) > 64 then do
     say spec
     say "      is > 64 characters long (incl extension)"
     say
     end

   offsetx = lastpos('.', spec)
   if offsetx > 0 then do
     name = substr(spec, 1, offsetx - 1)
     end
     else do
       name = spec
     end
call lineout '00-all-files.txt',name
end

call lineout '00-all-files.txt'

say

If flist.0 > 0 then do
   say 'Number of files matching search criteria,' searchcrit ', was' 
flist.0
   end
   else
   say 'Nothing matched your search criteria:' searchcrit



-- 
Regards

=========================
Bart Bremmers, Gen. Mgr.
Craft-Bilt Materials Ltd.
Markham, Ontario
(800) 668-6430


 
Yahoo! Groups Links

 To visit your group on the web, go to:
    http://groups.yahoo.com/group/os2user/

 Your email settings:
    Individual Email | Traditional

 To change settings online go to:
    http://groups.yahoo.com/group/os2user/join
    (Yahoo! ID required)

 To change settings via email:
    mailto:os2user-digest{at}yahoogroups.com 
    mailto:os2user-fullfeatured{at}yahoogroups.com

 To unsubscribe from this group, send an email to:
    os2user-unsubscribe{at}yahoogroups.com

 Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 


---