FileExists and File Same as exists

[autoitxp 0]

well fileexists check file existence only what if some one rename file as same ?

i actually need to know if file is same as exists in folder ?

Edited October 25, 2012 by autoitxp

[BrewManNH 1,118]

I'm not sure how often you're going to run into the situation that you have 2 files with the same name in the same folder. You can't for example rename a file with the name of another file that already exists in the folder, try it and you'll see what I mean. If you try to copy or move a file to the folder, it will ask you to overwrite the one that's there or rename the one you're copying.

So, you're asking about something that has a very low chance of ever happening.

[Beege 45]

I dont think he means what he said. I think he means duplicate files. Same data, different names.

Heres a quick example if thats what you mean:

#include <file.au3>
#include <Crypt.au3>

;path to check
$path = @ScriptDir
$aFilelist = _FileListToArray($path, '*', 1)

_Crypt_Startup()

$oDict = ObjCreate("Scripting.Dictionary")

For $i = 1 to $aFilelist[0]
    
    $md5 = _Crypt_HashFile($path & '' & $aFilelist[$i], $CALG_MD5)
    $md5 = string($md5)
    
    If Not $oDict.Exists($md5) Then
        $oDict.add($md5, $path & '' & $aFilelist[$i])
    Else
        MsgBox(0,'Files are equal', $path & '' & $aFilelist[$i] & @CRLF & $oDict.item($md5))
    EndIf

Next

_Crypt_Shutdown()

[autoitxp 0]

thanks is it good to get md5 hash

Func _GetFileHashMD5($HashFile)
Local $FileMD5 = ''
If FileExists($HashFile) Then
_Crypt_Startup()
$FileMD5 = _Crypt_HashFile($HashFile, $CALG_MD5)
_Crypt_Shutdown()
If $FileMD5 = -1 Then Return ''
EndIf
Return $FileMD5
EndFunc ;==>_GetFileHashMD5

Edited October 25, 2012 by autoitxp

[Beege 45]

In that case _Crypt_Startup() and _Crypt_Shutdown() would not be needed. They are already built into the _Crypt_HashFile function.

Func _GetFileHashMD5($HashFile)
    Local $FileMD5 = ''
    If FileExists($HashFile) Then
        $FileMD5 = _Crypt_HashFile($HashFile, $CALG_MD5)
        If $FileMD5 = -1 Then Return ''
    EndIf
    Return $FileMD5
EndFunc ;==>_GetFileHashMD5

[guinness 1,465]

OR _IsFileSame

[autoitxp 0]

well im trying to match md5 hash and install files is it right way to do it ?

Func _FilesInstall()
For $i = 0 To UBound($MainFileN) - 1
If _GetFileHashMD5(_GetDirPath(True) & $MainFileN[$i]) <> $MainFileHash[$i] Then
Switch $MainFileHash[$i]
    Case '0x356407BE3264029D8EA928565565333F5'
     If FileInstall('.resFile_1.exe', _GetDirPath(True) & $MainFileN[$i], 1) = 0 Then Return False
    Case '0x0A4350E024BB7960E8C3D47115DEC37E'
     If FileInstall('.resFile_2.dll', _GetDirPath(True) & $MainFileN[$i], 1) = 0 Then Return False
    Case '0x9A5434F2342342494B5BB3AB03B0A847'
     If FileInstall('.resFile_3.dll',_GetDirPath(True) & $MainFileN[$i], 1) = 0 Then Return False
    Case '0xAC5E6B891A092313133BAADFBBBB3305'
     If FileInstall('.resFile_4.jpg', _GetDirPath(True) & $MainFileN[$i], 1) = 0 Then Return False
EndSwitch
EndIf
Next
Return True
EndFunc ;==>_FilesInstall

Func _GetFileHashMD5($HashFile)
Local $FileMD5 = ''
If FileExists($HashFile) Then
$FileMD5 =_Crypt_HashFile($HashFile, $CALG_MD5)
If $FileMD5 = -1 Then Return ''
EndIf
Return $FileMD5
EndFunc
;==>_GetFileHashMD5

Edited October 25, 2012 by autoitxp