Typo error...in my actual code is was   dimmed as long.

Joe 

=============================================


> 
> Joe,
> 
> I've not taken a thorough look at your code but shouldn't dirID be a
> long ?
> 
> Bernie
> 
> 
> On 1 Aug 2005, at 15:05, Joe Smith wrote:
> 
>> dim as FSSpec    fsPrefs
>> dim as short     @vRefNum, dirID
>> dim as OSerr     err
>> dim              hdl&, rHndl
>> dim as long      prefsResRef
>> 
>> _mySTRid = 128
>> 
>> //=================================================
>> // Get preferences folder stuff and build FSSpec
>> //=================================================
>> err = fn FindFolder( _kOnAppropriateDisk, _kPreferencesFolderType,
>> _kDontCreateFolder, @vRefNum, @dirID )
>>  long if ( err == _noErr )
>> err = fn FSMakeFSSpec( vRefNum, dirID, "", #fsPrefs )
>> end if
>> //=================================================
>> // Get the preferences  resource ref number
>> //=================================================
>> prefsResRef = Usr OpenRFPerm("BackUp Prefs", fsPrefs.vRefNum,
>> _fsRdWrPerm)
>> 
>> //=================================================
>> //Get handle to my application's  STR# resource File
>> //=================================================
>> hdl& = FN pGget1ResX(_"STR#", _mySTRid, gResRef)
>> //=================================================
>> //Transfer the resource from my application to the preference file
>> //=================================================
>> Long if hdl&
>>   rHndl& = Usr ReplaceResource(hdl&, _"STR#", _mySTRid, "",
>> prefsResRef)
>> End If
>> 
> 
> --
>