Microsoft KB Archive/35509

= Macintosh Directory List & File Search Across Folders/Drives =

Article ID: 35509

Article Last Modified on 1/9/2003

-

APPLIES TO


 * Microsoft QuickBasic Compiler for Macintosh 1.0

-



This article was previously published under Q35509



SUMMARY
Macintosh QuickBASIC version 1.00 includes library routines (MBLC resources) called GetCatInfo and HFSDispatch that let you do the following:


 * 1) Search for filenames through all the folders (directories) on all currently mounted disk (drive) volumes
 * 2) Produce a listing of the files in a given folder

However, to effectively use GetCatInfo and HFSDispatch takes careful scrutiny of &quot;Inside Macintosh,&quot; by Apple Computer, Inc. (published by Addison-Wesley). HFSDispatch is described in Volume 4 of &quot;Inside Macintosh&quot; and should be used only by advanced Macintosh Toolbox programmers.

The sample program &quot;Find File&quot; below shows how to use the GetCatInfo and HFSDispatch library routines. For another example of using GetCatInfo, please see the GetPathName subprogram in the Utility Subprograms source file on the Macintosh QuickBASIC version 1.00 Examples disk in the QB Demos folder.



MORE INFORMATION
'   &quot;Find File&quot; '   File search example program. '   Copyright 1988-1991 Microsoft Corp. '    Written in Microsoft QuickBASIC Version 1.00 for Apple Macintosh. '   Microsoft makes no claims about support for or performance of '    this example program. '   [4/23/91 Program corrected in three places per SR# S890831-4, and '            should now work ok.]

'   globals DIM SHARED TRUE, FALSE FALSE = 0 :TRUE = NOT FALSE '      i/o parameter block (see Inside Macintosh Vol. 4) DIM SHARED IOPB%(60) '   stack globals DIM SHARED stack$(20), dS&(20), iS%(20), top% '   globals for refresh DIM SHARED nr%(3)   'file name rectangle

'   '   set up variables and draw window w% = 395 : h% = 80   'window width & height SetRect nr%(0),10,30,w%-10,h%-10 l% = (SYSTEM(5)-w%)\2 :t% = (SYSTEM(6)-h%)\4 WINDOW 1,&quot;Find File&quot;,(l%,t%)-(l%+w%,t%+h%),6 refresh TEXTFONT 3 :EDIT FIELD 1,&quot;&quot;,(54,7)-(w%-70,21),5

'   WHILE 1    'main event loop d% = DIALOG(0) SELECT CASE d%       CASE 0 'do nothing CASE 4 :END   'window closed: quit CASE 5 :refresh   'refresh CASE 6 'carriage return pressed in edit field TEDEACTIVATE WINDOW(6)   'disable the edit field t$ = EDIT$(1)   'get file name to look for TextBox &quot;&quot;, nr%(0), 0 find t$,found% IF found% THEN BEEP ELSE BEEP:BEEP:t$ = t$ + &quot; Not Found&quot; TextBox t$, nr%(0), 0 TEACTIVATE WINDOW(6)   'enable the edit field TESETSELECT 0,32767,WINDOW(6)   'select all CASE ELSE  'ignore anything else END SELECT WEND END

' '   refresh '   Draw window contents ' SUB refresh STATIC LINE (54,6)-(WINDOW(2)-69,22),,b InsetRect nr%(0), -2,-2 FRAMERECT VARPTR(nr%(0)) InsetRect nr%(0), 2,2 TEXTFONT 0 :TEXTFACE 0 MOVETO 10,18 :drawText &quot;Find:&quot; TEXTFONT 3 END SUB

' '   Find ' '   Find first file with simple name s$. '   returns found% = -1 if found, else 0. '       s$ = full path name if found ' '   This program searches alphabetically through the '   file system, descending each directory as it is '    encountered until a case-insensitive match is found. '   Searching stops at the first match. ' SUB Find( s$, found% ) STATIC ChangeCursor 4 :SHOWCURSOR ptr& = &H352   'pointer to default Volume Control Block vol& = PEEKL(ptr&) found% = FALSE WHILE vol&<>0 AND NOT found%

'   follow pointers through list of mounted volumes vol& = PEEKL(ptr&) :ptr& = vol& IF vol&<>0 THEN   'null pointer at end of list

'   get volume name and initialize IOPB% dirID& = 0 n$ = &quot;&quot; vRefNum% = PEEKW(vol& + 78) GetCatInfo IOPB%(0), n$, dirID&, vRefNum%

'   search volume initStack push n$, dirID&, 1

WHILE top% >= 0 AND NOT found% dir ok%,iS%(top%),dS&(top%),n$,directory% IF ok% THEN iS%(top%) = iS%(top%) + 1 IF directory% THEN dirID& = PEEKL(VARPTR(IOPB%(24))) push n$, dirID&, 1 ELSE IF UCASE$(n$) = UCASE$(s$) THEN s$ = n$ :getPath s$                           found% = TRUE END IF                   END IF                ELSE    'finished searching this directory pop   'go back to where we left off END IF           WEND

END IF   'vol& <> 0 WEND   'vol& <> 0 INITCURSOR END SUB

' '   dir ' '   Produces a listing of the directory specified by dirID&. ' '   Start repeated calls to dir, starting with index% = 1. '   Repeat calls to dir (incrementing index% each time) until '   dir returns 0 (False) in ok%. '   For each call, dir returns the name of the file or directory in '    n$. ' '   ok% = -1 if more files/directories, 0 if no more '   index% = index '   dirID& = directory ID number '   n$ = file/directory name '   directory% = -1 if directory, 0 if a file ' '   Could be modified to return more information about the file '   such as the creator and file type. See Inside Macintosh Vol. 4 ' SUB dir( ok%, index%, dirID&, n$, directory% ) STATIC n$ = STRING$(32,0)   'maximum simple file name POKEL VARPTR(IOPB%(9)), SADD(n$)   'init string pointer IOPB%(14) = index%   'set index POKEL VARPTR(IOPB%(24)),dirID&   'set directory ID    HFSDispatch 9,IOPB%(0)    'GetCatInfo

ok% = IOPB%(8) = 0   'check result code ( 0 = noErr ) IF ok% THEN n$ = MID$( n$, 2, ASC(n$) )   '-> BASIC string '   set directory flag (attributes, bit 4) directory% = ( PEEK(VARPTR(IOPB%(15))) AND 16 ) = 16 END IF END SUB

' '   stack utilities '   assume OPTION BASE 0 ' SUB initStack STATIC top% = -1 END SUB

SUB push( x$, l&, i% ) STATIC IF top%>UBOUND(stack$) THEN BEEP :PRINT &quot;Stack overflow&quot; :END top% = top% + 1 stack$(top%) = x$   dS&(top%) = l&    iS%(top%) = i% END SUB

'       We never need popped contents in this program, so pop just '       decrements the stack pointer. SUB pop STATIC IF top% < 0 THEN BEEP :PRINT &quot;StringStack underflow&quot; :END top% = top% - 1 END SUB

' '   getPath '   Prepend colon-separated stack contents to p$ '    without changing the stack. ' SUB getPath( p$ ) STATIC FOR j% = top% TO 0 STEP -1 :p$ = stack$(j%) + &quot;:&quot; + p$ :NEXT END SUB

Additional query words: MQuickB

Keywords: KB35509

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.