
<HTML>

<HEAD>

<TITLE>[Q] What is the reason for raise one error trying to save a new file ? </TITLE>

</HEAD>

<BODY>

<FONT FACE="Verdana">I copy from image and this code perhaps belongs to Tim Rowledge .<BR>

I not could figure why you choose raise one error if file do not exist.<BR>

It&#8217;s not what we wish to do using this method ?<BR>

<BR>

forceNewFileNamed: fileName <BR>

&nbsp;&nbsp;&nbsp;&nbsp;&quot;Create a new file with the given name, and answer a stream opened <BR>

&nbsp;&nbsp;&nbsp;&nbsp;for writing on that file. If the file already exists, delete it without <BR>

&nbsp;&nbsp;&nbsp;&nbsp;asking before creating the new file.&quot;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;| dir localName fullName f |<BR>

&nbsp;&nbsp;&nbsp;&nbsp;fullName := self fullName: fileName.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;(self isAFileNamed: fullName)<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifFalse: [f := self new open: fullName forWrite: true.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;^ f isNil<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifTrue: [&quot;Failed to open the file&quot;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(FileDoesNotExistException fileName: fullName) signal]<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifFalse: [f]].<BR>

&nbsp;&nbsp;&nbsp;&nbsp;dir := FileDirectory forFileName: fullName.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;localName := FileDirectory localNameFor: fullName.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;dir<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;deleteFileNamed: localName<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifAbsent: [(CannotDeleteFileException new<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;messageText: 'Could not delete the old version of file ' , fullName) signal].<BR>

&nbsp;&nbsp;&nbsp;&nbsp;f := self new open: fullName forWrite: true.<BR>

&nbsp;&nbsp;&nbsp;&nbsp;^ f isNil<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifTrue: [&quot;Failed to open the file&quot;<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(FileDoesNotExistException fileName: fullName) signal]<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ifFalse: [f]<BR>

<BR>

Cheers and continue good work on TK4.<BR>

<BR>

Edgar, Advocatus Diaboli</FONT>

</BODY>

</HTML>