[..] Suppression fichier par date

[rantanplan]

Bonjour à tous,
tout nouveau sur le site, je souhaite créer un exécutable à lancer via le planificateur de tâche afin de supprimer des fichiers dans 4 répertoires différents, fichier de plus d'une semaine par rapport à la date du jour... si qqun connait une fonction ou un script déjà existant (histoire de ne pas réinventer la roue ).. merci... sinon, je me lance dans la prog.....

[silvere]

Tu devrait lire les règles du forum et en particulier celle-ci. Sinon tu va encore te faire réprimander par les modo .

[TT22]

Pour commencer, lis ça : http://www.autoitscript.fr/forum/viewto ... f=35&t=595

[rantanplan]

ok ok ..... mille excuses.... j'ai corrigé ("sont fatigant ces petits nouveaux" ..

[TT22]

C'est bien

Bon, essaye ça :

► Afficher le texte

Code : Tout sélectionner

#include <Date.au3>

$Folder = "" ; Dossier à tester.

Local $Search = FileFindFirstFile($Folder&"\*.*")

If $Search = -1 Then
    MsgBox(16, "Erreur", "Aucun fichier trouvé dans "&$Folder)
    Exit
EndIf

While 1
    Local $File = FileFindNextFile($Search)
    If @error Then ExitLoop

    If _PlusVieuxQuuneSemaine($Folder&"\"&$File) Then
        FileDelete($Folder&"\"&$File)
    EndIf
WEnd

FileClose($Search)

MsgBox(64,"Info","Suppression terminé !")

Func _PlusVieuxQuuneSemaine( $iFile)
    If StringInStr( FileGetAttrib($iFile), "D") Then
        Return False
    EndIf
    $iDate = FileGetTime( $iFile, 1 , 0)
    If _DateDiff ("D",$iDate[0]&"/"&$iDate[1]&"/"&$iDate[2],@YEAR&"/"&@MON&"/"&@MDAY) > 7 Then Return True
    Return False
EndFunc

[rantanplan]

Merci, j'essaie dès demain.... Bonne fin de W.E ..