Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!apple!keith
From: keith@Apple.COM (Keith Rollin)
Newsgroups: comp.sys.mac.programmer
Subject: Re: deleting resource fork
Message-ID: <53460@apple.Apple.COM>
Date: 29 May 91 19:31:30 GMT
References: <91149.092256GHGAQA0@cc1.kuleuven.ac.be>
Organization: Apple Computer Inc., Cupertino, CA
Lines: 21

In article <91149.092256GHGAQA0@cc1.kuleuven.ac.be> GHGAQA0@cc1.kuleuven.ac.be (Karl Pottie) writes:
>
>How do I delete a resource fork without deleting the datafork
>of a file ?
>I'm using Think Pascal.

Open the resource for using something like OpenRF, and call
SetEOF(refNum, 0). Here's how I did it in a little Pascal
utility:

	FailOSErr(OpenRF(fileName, aFile.vRefNum, fileRefNum));
	FailOSErr(SetEOF(fileRefNum, 0));
	FailOSErr(FSClose(fileRefNum));


-- 
------------------------------------------------------------------------------
Keith Rollin  ---  Apple Computer, Inc. 
INTERNET: keith@apple.com
    UUCP: {decwrl, hoptoad, nsc, sun, amdahl}!apple!keith
"But where the senses fail us, reason must step in."  - Galileo