AutoIt Français

Code : Tout sélectionner

#include <Date.au3>
#include <Array.au3>
#include <FileListToArrayXT.au3>
#include <File.au3>


; Répertoire fichiers
$rep_ori="C:\test1\"  ; Avec \ final
$rep_dest="C:\test2\"  ; Avec \ final
$extention="*.ini"
$iRetItemType = 0
$iRetPathType = 1
$bRecursive = true
$sExclude = ""
$iRetFormat = 1
$sFile="c:\test2\fichiers.txt"


; Delta jours
$delta= -90


; définition de la date des fichiers à archiver
$arch = _DateAdd( 'd',$delta, _NowCalcDate())


;Recherches des fichies avec les extentions  "*.ini"
$search=_FileListToArrayXT($rep_ori, $extention, $iRetItemType, $iRetPathType, $bRecursive, $sExclude, $iRetFormat)
;Creation de la liste de fichier rechercher.
_FileWriteFromArray($sFile, $search, 1)


; Recherche des fichiers dans le répertoire d'origine (! les répertoires sont listés aussi)
 $search = FileFindFirstFile($rep_ori & $extention)

; Msg si répertoire de destination inexistant ou vide
If $search = -1 Then
    MsgBox(0, $script_titre, "Le répertoire " & $rep_ori & " n'existe pas ou est vide",15)
    Exit
EndIf

; Compteur fichiers
$compteur=0

;test de la liste de fichier recherche.
Dim $aFind
If Not _FileReadToArray("c:\test2\fichiers.txt",$aFind) Then ;test de la liste de fichier recherche.
   MsgBox(4096,"Error", " Pas de fichier fichiers.txt dans le disque.")
   Exit
EndIf

; déclaration du fichier contenant la liste des fichiers copiés
$file = FileOpen("c:\test2\test.txt", 1)

; Boucle dans les fichiers du répertoire
While 1

    ; Fichier en cours
        $fichier = FileFindNextFile($search)

 ; MsgBox(1, "Test des variables", "fichier "& $fichier )


    ; Exit si erreur
    If @error Then ExitLoop

    ; Récupération date de création du fichier
    $date_fichier =  FileGetTime($rep_ori & $fichier, 0) ; Mettre 0


    ; Exclusion des répertoires
    $attributs=FileGetAttrib($rep_ori & $fichier)
    $rep_ou_fichier=StringInStr($attributs,"D")

    ; Ne prend que les fichiers
    If $rep_ou_fichier==0 Then

        If Not @error Then
            ; Récupération date et heure du fichier
            $yyyymd = $date_fichier[0] & "/" & $date_fichier[1] & "/" & $date_fichier[2]


            ; Copie du fichier si égale à la date du jour - 90
            If $yyyymd = $arch Then
              ;  FileCopy($rep_ori & $fichier, $rep_dest, 1)


                ; ecrite dans un fichier.txt les noms des fichiers copiés
                FileWrite($file, $fichier & @CRLF)




                $compteur=$compteur+1
            EndIf
        EndIf
    EndIf
WEnd



;Copie des fichiers de la liste des fichiers recherchés dans  c:\test2\fichiers.txt
    ;           For $x = 1 to $aFind[0]
     ;          FileCopy($rep_ori  & $aFind[$x], "C:\test2\")
     ;          Next




; Ferme la recherche
FileClose($search)