File creation bug

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_Outfile=test.exe
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
#include <File.au3>
#NoTrayIcon

Dim $Fichier
$Fichier = @ScriptDir & "\LOG.DAT"

Dim $dll
$dll = DllOpen("user32.dll")

MsgBox(0, "lol", "Attempting to create file: " & $Fichier)
_FileCreate($Fichier)

Dim $file
$file = FileOpen($Fichier, 1)

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
Else
    MsgBox(0, "lol", "The file log exists!")
    FileWrite($file, "LOLOLOLOL")
EndIf

FileClose($Fichier)
DllClose($dll)

Exit