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







 
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/
 


---