exit:
CleanupExtractedFiles(short tgtVRefNum, long tgtDirID){	OSErr		err = noErr;	FSSpec		coreDirFSp;	StringPtr	pcoreDir;	short		i = 0;		HLock(gControls->cfg->coreDir);	if (*gControls->cfg->coreDir != NULL && **gControls->cfg->coreDir != NULL)			{		// just need to delete the core dir and its contents				pcoreDir = CToPascal(*gControls->cfg->coreDir);		err = FSMakeFSSpec(tgtVRefNum, tgtDirID, pcoreDir, &coreDirFSp);		if (err == noErr)		{			err = FSpDelete( &coreDirFSp );		}			HUnlock(gControls->cfg->coreDir);		return err;	}				HUnlock(gControls->cfg->coreDir);		// otherwise iterate through coreFileList deleteing each individually	for (i=0; i<currCoreFile+1; i++)	{		FSpDelete( &coreFileList[i] );	}	if (pcoreDir)		DisposePtr((Ptr) pcoreDir);		return err;}