home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / GETFILE2.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  711 b   |  32 lines
  1.  
  2. (*
  3.  * getfile2 - file list processing library (simplified version)
  4.  *
  5.  * This module will change a wildcard list of files into a
  6.  * sorted file name list.
  7.  *
  8.  * Samuel H. Smith, rev. 25-oct-87
  9.  *
  10.  *)
  11.  
  12. procedure getfiles (pattern:       filestring;
  13.                     var fdir:      filearray;
  14.                     var num:       integer);
  15. var
  16.    DirInfo:       SearchRec;
  17.    curdir:        filestring;
  18.  
  19. begin
  20.    curdir := path_only(pattern);
  21.    num := 0;
  22.  
  23.    FindFirst(pattern,$21,DirInfo);
  24.    while (DosError = 0) and (num < maxnumfiles) do
  25.    begin
  26.       inc(num);
  27.       fdir[num] := curdir + DirInfo.name;
  28.       FindNext(DirInfo);
  29.    end;
  30. end;                     {getfiles}
  31.  
  32.