Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!ukma!tut.cis.ohio-state.edu!osu-cis!att!pegasus!ech
From: ech@pegasus.ATT.COM (Edward C Horvath)
Newsgroups: comp.sys.mac.programmer
Subject: Re: Deleting Resource Forks?
Message-ID: <2737@pegasus.ATT.COM>
Date: 3 Apr 89 15:49:08 GMT
References: <11696@ut-emx.UUCP>
Distribution: usa
Organization: AT&T ISL Middletown NJ USA
Lines: 21

From article <11696@ut-emx.UUCP>, by newman@ut-emx.UUCP (Dave Newman):

! Can someone suggest some code that will allow me to delete
! the resource fork of a file?  I would like to obliterate
! it entirely.  Pascal is preferable, but others that are
! convertible by me would be OK.  I have some files with
! empty resource forks that are taking up space on my disk,
! and I'd like to smash those resource forks.  Unfortuately,
! I don't have either FEdit+ or MPW, both of which, I am told,
! will do the trick.

You'll need Inside Mac v. I plus either II or IV for details, but a
direct way to do this is
	- call SFGetFile to let the user pick a file
	- call OpenRF with the volume/name from SFGetFile to open
	  the resource fork
	- call SetEOF to truncate the fork to 0.
	- call FSClose.
	- loop if desired (until the SFReply.good is FALSE).

=Ned Horvath=