I think this might be what you're looking for:

CLEAR LOCAL
DIM pBlock;128
DIM pBlk&;128
DIM @CreateFlag,@Drive%,@DirID&,@Vref%
LOCAL FN GetPrefVol%
Drive% = 0
CreateFlag = _kDontCreateFolder

LONG IF FN 
FINDFOLDER(_kOnSystemDisk,_kPreferencesFolderType,CreateFlag,Drive%,DirID&) 
= _NoErr
pBlk& = @pBlock
pBlk&.ioVRefNum% = Drive%
pBlk&.ioWDDirID& = DirID&
IF FN OPENWD (pBlk&) = _noErr THEN Vref% = pBlk&.ioVRefNum%
END IF
END FN = Vref%

I vaguely remember getting this from a list member quite a while ago.  
Unfortunately, since then the name and date have been forgotten...
Works everyday in Starships though ;-)

>From: Matthew Beedle <matt@...>
>A while ago, someone posed a function to find the preferences folder,
>even if the language isn't English, I had a drive crash, anyone have the
>code laying around somewhere?
>
>Thanks in advance!

Hope it helps!

_________________________________________________________________
Join the world’s largest e-mail service with MSN Hotmail. 
http://www.hotmail.com