Easy way to append to file?

Found this here some time ago:

	Function appendtext:String(filename:String, text:String) 
		If FileType(filename) = 0 Then CreateFile(filename) 
		Local Stream:TStream = OpenStream(filename)
		SeekStream(Stream, Stream.Size())
		WriteLine(stream, text) 
		CloseStream(stream) 
	End Function

bye
MB