Help

Can somebody tell me and/or fix this code so it will not say 'Stream does not exist'. This writes a file called '(your file name).inf' and a file called '(your file name).log'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;LogFile.bb
;Contains Functions to write .log files
;WARNING:
;You must create a Global called 'LogName$' For these to work
;Call Function SetLogName() first unless you have declared it in the program start up
;Call Function WriteLogFile() second unless you already have the file written
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function WriteLog(St$)

file = ReadFile(FileName$ + ".inf")

LogName$ = ReadString$(file)

CloseFile(file)

file = OpenFile(LogName$)

WriteString(file,st$)

CloseFile(file)

End Function

Function WriteLogFile(FileName$)

file = ReadFile(FileName$ + ".inf")

LogName$ = ReadString$(file)

CloseFile(file)

file = WriteFile(LogName$)

CloseFile(file)

End Function

Function SetLogName(File$)

file = WriteFile(FileName$ + ".inf")

WriteString(file,FileName$ + ".log")

End Function

File 2:

Include "LogFile.bb" ;That is the name of the file above
SetLogName("example")
WriteLogFile("example")
WriteLog("Hello")

Thanks
I have figured it out.