Apple AppleShare 3.0 File Server Controls - Manual (Page 15)

NamePtr^ := '';
END
ELSE
BEGIN
scPB.standardPB.scNamePtr := NamePtr;
END;
scPB.standardPB.scIndex := Index;
MySCGetExpFldr := SyncServerDispatch(@scPB);
CASE gServerType OF
MFSType:
BEGIN
IF scPB.standardPB.scVRefNum <> 0 THEN
BEGIN
VRefNum := scPB.standardPB.scVRefNum;
Logins := 0;
DirID := scPB.standardPB.scDirID;
END
ELSE { there's nothing at this index position }
{ so force the error code to make it act }
{ like AppleShare }
MySCGetExpFldr := fnfErr;
END;
OTHERWISE
BEGIN
VRefNum := scPB.standardPB.scVRefNum;
Logins := scPB.standardPB.scLogins;
DirID := scPB.standardPB.scDirID;
END;
END;