File detection

[ThomasWMoore]

@vcivilen

Everything is explain in example...

you check 1st time :

$File = FileOpenDialog("File Checker", "", "All Files (*.*)", 1 + 2)
     $Attrib = FileGetAttrib($File);Check Attrib
     $Size = FileGetSize($File);Check Size
     $Time = FileGetTime($File);Check Time
     $Time = $Time[2] & "/" & $Time[1] & "/" & $Time[0] & " " & $Time[3] & ":" & $Time[4] & ":" & $Time[5]

     FileWrite(@TempDir & "FileChecker.txt", $File);Write file path to check
     FileWrite(@TempDir & "FileChecker.txt", @CRLF & $Attrib);Write first check change
     FileWrite(@TempDir & "FileChecker.txt", @CRLF & $Size);....
     FileWrite(@TempDir & "FileChecker.txt", @CRLF & $Time)

Then you check when you want :

;Check everytime
$File1 = FileReadLine(@TempDir & "FileChecker.txt", 1)
$Attrib1 = FileReadLine(@TempDir & "FileChecker.txt", 2)
$Size1 = FileReadLine(@TempDir & "FileChecker.txt", 3)
$Time1 = FileReadLine(@TempDir & "FileChecker.txt", 4)

$Attrib2 = FileGetAttrib($File1);Check Attrib
$Size2 = FileGetSize($File1);Check Size
$Time2 = FileGetTime($File1);Check Time
$2Time = $Time2[2] & "/" & $Time2[1] & "/" & $Time2[0] & " " & $Time2[3] & ":" & $Time2[4] & ":" & $Time2[5]

#Region THIS CAN BE CHANGED !
If $Attrib1 <> $Attrib2 Then
     MsgBox(64, "", "Attrib has changed !" & @CRLF & "Before : " & $Attrib1 & @CRLF & "After : " & $Attrib2)
EndIf

If $Size1 <> $Size2 Then
     MsgBox(64, "", "Size has changed !" & @CRLF & "Before : " & $Size1 & @CRLF & "After : " & $Size2)
EndIf

If $Time1 <> $2Time Then
     MsgBox(64, "", "Time has changed !" & @CRLF & "Before : " & $Time1 & @CRLF & "After : " & $2Time)
EndIf

;Delete Temp File
;~ FileDelete(@TempDir&"FileChecker.txt")
EndIf

Thanks a lot for this script, I know I'm the one who requested your help but after hours of searching, I've finally found what I was looking for.

Thanks again man