After posting the earlier code, I noticed Brian's 
post and revisited his code. In it, he wisely 
used FSpGetFInfo to update the file info record 
prior to making the modifications. I have 
included that step in this revision. Thanks, 
Brian!

Ken

p.s. Watch for e-mail line breaks and lost constant underscores

/*

Carbon function to set file type and creator

    By Ken Shmidheiser
    Somerset, KY

    June 12, 2004

     Revised courtesy Brian Stevens

*/

local fn SetTypeAndCreator( fs as .FSSpec,¬
                         type as OSType,¬
                      creator as OSType )
'~'1
dim as OSErr   err
dim as FInfo @ info

err = fn FSpGetFInfo (#fs, info )
long if( err == _noErr )
info.fdType    = type
info.fdCreator = creator
err = fn FSpSetFInfo ( #fs, info )
end if

end fn = err

dim as FSSpec fs
dim as OSErr  err

// Set a text file to BBEdit
long if len( files$( _FSSpecOpen, "", "", fs ) )
err = fn SetTypeAndCreator( fs, _"TEXT", _"R*ch" )
long if( err == _noErr )
PRINT "File type and creator set"
xelse
print "Error No. "; err; " occurred"
end if
xelse
print "User canceled"
end if

include "Subs Quick Event Loop.Incl"