[Back to DIRS SWAG index] [Back to Main SWAG index] [Original]

      uses dos;
      procedure ProcessAllFiles(dir : dirstr);
      var
        d : searchrec;

      begin
        while (dir[length(dir)] = '\') do dec(dir[0]);

        { this gets the files }
        findfirst(dir+'\*.*',anyfile+hidden+system+readonly,d);
        while (doserror = 0) do begin
          process(d.name);
          findnext(d);
        end;

        { this gets the subs, recursively }
        findfirst(dir+'\*.*',directory,d);
        while (doserror = 0) do begin
          if (d.attr and directory = directory) then
            ProcessAllFiles(dir+'\'+d.name);
          findnext(d);
        end;

      end;

[Back to DIRS SWAG index] [Back to Main SWAG index] [Original]