home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / mac / programm / 21243 < prev    next >
Encoding:
Text File  |  1993-01-11  |  3.8 KB  |  147 lines
  1. Newsgroups: comp.sys.mac.programmer
  2. Path: sparky!uunet!munnari.oz.au!uniwa!cujo!ncrpda.curtin.edu.au!rocky.curtin.edu.au!user
  3. From: peter@cujo.curtin.edu.au (Peter N Lewis)
  4. Subject: Re: Getting List of files contained in folder
  5. Message-ID: <peter-120193114153@rocky.curtin.edu.au>
  6. Followup-To: comp.sys.mac.programmer
  7. Lines: 133
  8. Sender: news@ncrpda.curtin.edu.au
  9. Nntp-Posting-Host: ncrpda.curtin.edu.au
  10. Organization: NCRPDA, Curtin University
  11. References: <1993Jan11.113821.12019@wega.rz.uni-ulm.de>
  12. Date: Tue, 12 Jan 1993 03:46:37 GMT
  13.  
  14. In article <1993Jan11.113821.12019@wega.rz.uni-ulm.de>,
  15. walrath@faw.uni-ulm.de (Wayne K. Walrath) wrote:
  16. > 
  17. > I have been reading through the New IM-Files trying to figure this one
  18. > out: if I have a folder specification (like when I have thrown up a
  19. > dialog for the user to choose one) how can I get a list of all the files 
  20. > and folders contained in the folder?
  21.  
  22. Here's a program I wrote to list out all the THINK Pascal projects that are
  23. over 50k (so I could go thru and manually remove objects on all of them,
  24. which got me 5Meg of disk space back!  I wish Symantec would get around to
  25. releasing their utility for doing this, my old one doesn't work for
  26. v4.0.2)-:
  27.  
  28. It does a recursive scan give an volume reference number & dirID.
  29.  
  30. As Jon said, learn to love the PBGetCatInfo call, its very important (less
  31. important than learning the difference between vrn's and working directory
  32. numbers and how dirIDs fit in, but still quite important).
  33.  
  34. program Scan;
  35.  
  36.     uses
  37.         MyUtilities, MyStandardFile;
  38.  
  39.     var
  40.         path: str255;
  41.  
  42.     procedure Doit (vrn: integer; dirID: longInt; fname: str63);
  43.         var
  44.             pb: HParamBlockRec;
  45.             oe: OSErr;
  46.             rn: integer;
  47.     begin
  48.         with pb do begin
  49.             ioNamePtr := @fname;
  50.             ioVRefNum := vrn;
  51.             ioDirID := dirID;
  52.             ioFDirIndex := 0;
  53.             oe := PBGetCatInfo(@pb, false);
  54.         end;
  55.         if (oe = noErr) & (pb.ioFlFndrInfo.fdType = 'QPRJ') & (pb.ioFlRLgLen >
  56. 50000) then begin
  57.             writeln(concat(path, ':', fname));
  58.         end;
  59.     end;
  60.  
  61.     procedure WaitForEvent (sleep: integer);
  62.         var
  63.             er: EventRecord;
  64.             dummy: boolean;
  65.     begin
  66.         dummy := WaitNextEvent(everyEvent, er, sleep, nil);
  67.     end;
  68.  
  69.     procedure ScanFolders (vrn: integer; dirID: longInt);
  70.         var
  71.             pb: HParamBlockRec;
  72.             name: str63;
  73.         procedure Scan (dirID: longInt);
  74.             var
  75.                 index, len: integer;
  76.                 oe: OSErr;
  77.         begin
  78.             WaitForEvent(5);
  79.             index := 1;
  80.             repeat
  81.                 with pb do begin
  82.                     ioNamePtr := @name;
  83.                     ioVRefNum := vrn;
  84.                     ioDirID := dirID;
  85.                     ioFDirIndex := index;
  86.                     oe := PBGetCatInfo(@pb, false);
  87.                     if oe = noErr then
  88.                         if BAND(pb.ioFlAttrib, $10) = 0 then
  89.                             Doit(vrn, dirID, name)
  90.                         else begin
  91.                             len := length(path);
  92.                             path := concat(path, ':', name);
  93.                             Scan(pb.ioDirID);
  94.                             path[0] := chr(len);
  95.                         end;
  96.                     index := index + 1;
  97.                 end;
  98.             until oe <> noErr;
  99.             WaitForEvent(5);
  100.         end;
  101.     begin
  102.         Scan(dirID);
  103.     end;
  104.  
  105.     var
  106.         reply: MySFReply;
  107.         typeList: SFTypeList;
  108. begin
  109.     path := '';
  110.     ShowText;
  111.     InitUtilities;
  112. {GetFolder(nil, -1, typeList, 500, reply);}
  113.     reply.Rgood := true;
  114.     reply.RvRefNum := -1;
  115.     reply.RdirID := 2;
  116.     reply.Rfolder := true;
  117.     with reply do
  118.         if Rgood then begin
  119.             if Rfolder then
  120.                 ScanFolders(RvRefNum, RDirID)
  121.             else
  122.                 Doit(RvRefNum, RDirID, RfName);
  123.         end;
  124.     write('Finished - Click the Mouse Button');
  125.     while not Button do
  126.         WaitForEvent(15);
  127. end.
  128.  
  129. >   Is it possible to use the new Cat Search function 
  130. > available under 7.x (_FSBCatSearch or something similiar) but limit it to 
  131. > only the folder in question?
  132.  
  133. Beats me.
  134.  
  135. > I would appreciate a general explanation of how to do this, or better
  136. > still some code.
  137.  
  138. There is the code, all it does is use the ioFDirIndex field to call
  139. PBGetCatInfo successively with a larger index til it runs off the end of
  140. the folder...
  141.  
  142. Have fun,
  143.    Peter.
  144.  
  145. _______________________________________________________________________
  146. Peter N Lewis <peter@cujo.curtin.edu.au>             Ph: +61 9 368 2055
  147.