AutoIt Français

Code : Tout sélectionner

If IsArray($file) Then
                SplashTextOn ("", "Initialisation ..." , 500, 55, -1, -1, 16)

                    For $i = 1 To $file[0]
                    ;   msgbox(0,"", "==" & $answer[$i] & "==")
                        $file[$i] = StringStripWS($file[$i], 3)

                ;   msgbox(0,"", "==" & $Nom[$i] & "==")

                        FileWriteLine($LogFile,"")
                        FileWriteLine($LogFile,"=~=~=~=~=~=~=~=~=~=~=~=~ Recherche pour les Fichiers  " & _
                            """ " & $file[$i]  & " """ &  " =~=~=~=~=~=~=~=~=~=~=~=~")
                        FileWriteLine($LogFile,"")

                        For $k in $aArray
                            If IsNumber($k) Then ContinueLoop
                                If DriveStatus($k & "\") = "NOTREADY" Then ContinueLoop

                                FileWriteLine($LogFile,"Recherche pour le lecteur " & $k &"\")
                                SplashTextOn ("", "Scanning Files... " & $k & "\ " & $file[$i] & " " & $opt, 500, 55, -1, -1, 16)
                                FileWriteLine($LogFile,"")
                                ;$Recherche = _FileListToArrayEx ($k & "\", "*" & $file[$i] & "*.*", 0, 1)
                                $Recherche = _FileListToArrayEx ($k & "\","*" & $file[$i] & "*" & $opt, 0, 1)
                                    if @error = 4 then
                                        FileWriteLine($LogFile,"Pas de fichier pour le lecteur " & $k &"\")
                                        FileWriteLine($LogFile,"")
                                        FileWriteLine($LogFile,"")
                                        ContinueLoop
                                    EndIf

                                    If IsArray($Recherche) Then
                                        For $j = 1 to $Recherche[0]   ; parcourt le tableau
                                        SplashTextOn ("", $Recherche[$j], 500, 55, -1, -1, 49)
                                        ;FileWriteLine($LogFile, $Recherche[$j])
                                        $compted = $compted + 1

                                        Next


                                        If IsArray($Recherche) Then
                                            For $e = 1 to $Recherche[0]   ; parcourt le tableau
                                            $size = fileGetSize($Recherche[$e]) ; récupération de la taille du fichier
                                            $create = FileGetTime($Recherche[$e],1,0) ; mise sous forme de tableau de la date et heure de création du fichier
                                            $sAttribute = FileGetAttrib($Recherche[$e]) ; attibut du dit fichier

 If _IsChecked($checkmd5) = 1 then
                 Guictrlsetstate($checkmd5,$GUI_CHECKED)

$MD5CTX = _MD5Init()
For $i = 1 To Ceiling(FileGetSize($recherche[$e]) / $BufferSize)
    _MD5Input($MD5CTX, FileRead($recherche[$e], $BufferSize))
Next
$Hash = _MD5Result($MD5CTX)
$Hash = StringTrimLeft($Hash, 2) ; suppression des 2 primers caractères du hash à savoir "0x"
FileClose($recherche[$e])

EndIf



                                            FileWriteLine($LogFile,$create[2] & "/" & $create[1] & "/" & $create[0] & _
                                            " à " & $create[3] & ":"  & $create[4] & ":"  & $create[5] & "  " & $sAttribute & " " & "   "& $Recherche[$e] & "  (" & $size & ")" & "  " & "[MD5 " & $Hash & " ]" )
                                            Next
                                        EndIf
                                    EndIf