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

    Uses Crt, Dos, WinDos;
    Procedure SearchSubDirs(Dir:PathStr;Target:SearchRec);
    Var
      FoundDir: TSearchRec;
      FileSpec: PathStr;
      Path : DirStr;
      DummyName: NameStr;
      DummyExt : ExtStr;
    begin
     If KeyPressed then Repeat Until KeyPressed;
     FileSpec:= Dir + '*.';
     FindFirst('*.*', AnyFile, FoundDir);
     While (DosError = 0) do
       begin
         With FoundDir do
           begin
             If Name[1] <> '.' then
               if Directory and Attr <> 0 then
                 begin
                   FSplit(FileSpec,Path,DummyName,DummyExt);
                   FindFirst(Path + Name + '\' ,Target);
                 end;
           end; {with FoundDir}
         if KeyPressed then Pause;
         FindNext(FoundDir);
       end; {read loop}
       If DosError <> 18 then DosErrorExit;
    end;

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