User Manual

END;
SERVER CONTROL CALLS
The following procedure creates a list of shared volumes and folders. Before
using this procedure, you must initialize gMaxVolumes and gMaxExpFolders with
the values returned by the SCGetGetupInfo control call.
PROCEDURE GetAllExpFldrs;
VAR
Index: Integer;
shortName: Str13;
VRefNum: Integer;
Logins: Integer;
DirID: LongInt;
err: OSErr;
BEGIN
FOR Index := -gMaxVolumes TO gMaxExpFolders DO
IF Index <> 0 THEN { index 0 is undefined }
BEGIN
err := MySCGetExpFldr(@shortName, VRefNum, Logins,
Index, DirID);
IF err = noErr THEN
BEGIN
IF Index < 0 THEN
BEGIN
{ do something with the shared volume }
{ information }
END
ELSE
BEGIN
{ do something with the shared folder }
{ information }