+ // if the object is a directory, append a colon so full pathname ends with colon
+ if ((result == noErr) && (pb.hFileInfo.ioFlAttrib & kioFlAttribDirMask) != 0)
+ {
+ ++tempSpec.name[0];
+ tempSpec.name[tempSpec.name[0]] = ':';
+ }
+
+ // Put the object name in first
+ result = PtrToHand( &tempSpec.name[1], fullPath, tempSpec.name[0] );
+ if ( result == noErr )
+ {
+ // Get the ancestor directory names
+ pb.dirInfo.ioNamePtr = tempSpec.name;
+ pb.dirInfo.ioVRefNum = tempSpec.vRefNum;
+ pb.dirInfo.ioDrParID = tempSpec.parID;
+
+ // loop until we have an error or find the root directory
+ do
+ {
+ pb.dirInfo.ioFDirIndex = -1;
+ pb.dirInfo.ioDrDirID = pb.dirInfo.ioDrParID;
+ result = PBGetCatInfoSync(&pb);
+ if ( result == noErr )
+ {
+ // Append colon to directory name
+ ++tempSpec.name[0];
+ tempSpec.name[tempSpec.name[0]] = ':';