Pete Beaumont wrote:
> 
> Does anyone have an example of how to use FSpGetCatInfo.
> 
> tia
> 
As far as I know FSpGetCatInfo is not a Toolbox function, I believe
you need to create it, perhaps something like this:

INCLUDE "Tlbx Files.Incl"

LOCAL FN FSpGetCatInfo( fSpec AS .FSSpec, pb AS .CInfoPBRec)
  DEF BLOCKFILL( pb, SIZEOF(CInfoPBRec), 0 )
  pb.ioVRefNum%   = fSpec.vRefNum
  pb.ioDirID&     = fSpec.parID
  pb.ioNamePtr&   = @fSpec.name
  pb.ioFDirIndex% = 0
END FN = FN PBGetCatInfoSync( pb )


WINDOW 1
gFBUseNavServices = _zTrue

DIM f  AS FSSpec
DIM pb AS CInfoPBRec

LONG IF LEN( FILES$( _FSSpecOpen, "", "", f ) )
  LONG IF FN FSpGetCatInfo( f, pb ) = _noErr
    PRINT PSTR$( pb.ioNamePtr& )
    PRINT MKI$( pb.ioFlFndrInfo.fdType& ),MKI$(
pb.ioFlFndrInfo.fdCreator& )
  END IF
END IF

DO
  HANDLEEVENTS
UNTIL _nil

Notice that if you want to use a generic pointer instead of
CInfoPBRecPtr you may have troubles with FB predefined constants.

-- 
Cheers,

Alain
------------------------------------------------------
                 Program different

                      E = FB^3

FutureBASIC^3 in Europe:  http://euro.futurebasic.com/
------------------------------------------------------