FileWrite not working

[Appie78]

Hi Guys,

I've got a little problem with the Filewrite().

Below code isn't working, it does create the file and the Filewrite return a "Succes" in the Msgbox.

Func Begin()

$FileLog = FileOpen("C:\Images\" & $Begin & "\" & $Begin & "(" & @MDAY & "-" & @MON & "-" & @YEAR & ")" & ".log", 9)

If $FileLog = -1 Then

MsgBox(0, "Error", "Unable to open logfile.")

Return

EndIf

If Not $Stub = 1 Then

FileWrite($FileLog, @CRLF)

EndIf

$line = FileWrite($FileLog, "Started: " & @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)

MsgBox(0, "", $line)

EndFunc ;==>Begin

Func Eind()

FileWrite($FileLog, "Reference number:Stub" & @CRLF)

FileWrite($FileLog, "Ammount of fields observed: " & $StepCount & @CRLF)

FileWrite($FileLog, "Ammount of fibres counted: " & $Vezel & @CRLF)

FileWrite($FileLog, "Ammount of pictures taken: " & $Number - 1 & @CRLF)

FileWrite($FileLog, "Finished: " & @MDAY & "-" & @MON & "-" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF)

FileClose($FileLog)

EndFunc ;==>Eind

Anyone who can help me out?

Thanks

[Yashied]

Works good for me, the file is created. The only problem might be with $Begin. What is it?

[Appie78]

Works good for me, the file is created. The only problem might be with $Begin. What is it?

Hi Yashied,

$Begin = $Array[$i][$i]

Also tested this with a Msgbox which returns me the correct data.

The file is created when I run the script, but all the lines from the two functions don't get written into the file.

Thanks,

Appie

[Yashied]

The problem may be only with $Begin. Post a ready to run part of your code.

EDIT:

Appie78, but you do not accidentally lost $FileLog?

Edited July 14, 2009 by Yashied

[DYONISII]

hmmm...

Begin() doesn't call Eind().

how about this:

If Not $Stub = 1 Then
  FileWrite($FileLog, @CRLF)  ;<<--- should be changed to Eind()
EndIf

Edited July 14, 2009 by DYONISII

[Appie78]

hmmm...

Begin() doesn't call Eind().

how about this:

If Not $Stub = 1 Then
    FileWrite($FileLog, @CRLF)  ;<<--- should be changed to Eind()
  EndIf

Hi DYONISII,

Both functions are called from another function, so both get called but not after eachother.

Thanks for the reply

@Yashied,

I'll try and sort some things out tonight.

Thanks,

Appie

[Appie78]

Hi all,

It's like a miracle happened, it's working now!!!!

The only thing that worries me is that I didn't change anything in my code.

The only thing is that I put my laptop to hibernate twice!

Well anyway thanks for the help.

Appie

[DYONISII]

perhaps you started talking to your computer. LOL!

a long time ago when i used to teach, a student was in a situation like yours. he asked me what was the error of his program because he was receiving an error message. i looked at it and didn't find anything wrong. then i ran it myself, and it did properly.

oh well, sometimes, you gotta be nicer to your puter. they behave better if you treat them as people too hehehe.