[R] Supprimer dossier d'une semaine

[sirus]

Bonjour à tous et bonne année

Mon problème est simple:
Je cherche à faire un script pour supprimer tous les dossiers sur un disque réseau datant de plus d'une semaine.

j'ai trouvé ce code qui fonctionne très bien pour les fichier mais pas les dossiers.

► Afficher le texte

Code : Tout sélectionner

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

$FileList=_FileListToArray(@ScriptDir,"*.*",1)

If (Not IsArray($FileList)) and (@Error=1) Then
    MsgBox (0,"","Pas de fichier dans: " & @ScriptDir)
    Exit
EndIf

For $i=1 to $Filelist[0]

      $date=filegettime(@scriptdir & "/"  & $Filelist[$i])

      Msgbox(0,$Filelist[$i],"Aujourd'hui: " & $Date[0] & "/" & $date[1] & "/" & $date[2] & @Lf & "Date du fichier: " & _DateAdd( 'd',2, _NowCalcDate()) & @lf & "Difference entre les deux dates:" & Abs (_datediff("D",_nowcalc(),$Date[0] & "/" & $date[1] & "/" & $date[2])))

            If Abs(_datediff("D",$Date[0] & "/" & $date[1] & "/" & $date[2],_NowCalcDate())) > 2  then

                FileDelete($Filelist[$i])

            EndIf

Next

Deux problèmes ce posent:

1-Comment faire pour que ça supprime les dossiers et leur contenu et pas juste les fichiers?
2-Comment supprimer les dossier sans devoir mettre le script au même endroit que les dossiers?

J'ai essayé de remplacé tous les @ScriptDir par le chemin du disque contenant tous les fichier, ça me liste bien les les fichiers mais ne les supprime pas.

J'ai essayé de mettre remremove() à la place de filedelete() mais ça ne change rien.

Merci par avance de votre aide

[mikell]

Le script est bon, c'est le flag de _FileListToArray qui va pas

Code : Tout sélectionner

                $iFlag   - Optional: specifies whether to return files folders or both
;                  |$iFlag=0(Default) Return both files and folders    [color=#008000]<= c'est ça qu'il faut[/color]
;                  |[color=#FF0000]$iFlag=1 Return files only[/color]
;                  |$iFlag=2 Return Folders only
=> _FileListToArray(@ScriptDir) est suffisant grâce aux valeurs par défaut

[sirus]

merci pour la réponse.

En effet ça fonctionne beaucoup mieux.
J'ai fais ça(J'ai mis le deux afin que ça ne cherche que les dossiers).:

► Afficher le texte

Code : Tout sélectionner

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

$FileList=_FileListToArray(@ScriptDir,"*.*",2)

If (Not IsArray($FileList)) and (@Error=1) Then
    MsgBox (0,"","Pas de fichier dans: " & @ScriptDir)
    Exit
EndIf

For $i=1 to $Filelist[0]

      $date=filegettime(@scriptdir & "/"  & $Filelist[$i])

      Msgbox(0,$Filelist[$i],"Aujourd'hui: " & $Date[0] & "/" & $date[1] & "/" & $date[2] & @Lf & "Date du fichier: " & _DateAdd( 'd',2, _NowCalcDate()) & @lf & "Difference entre les deux dates:" & Abs (_datediff("D",_nowcalc(),$Date[0] & "/" & $date[1] & "/" & $date[2])))

            If Abs(_datediff("D",$Date[0] & "/" & $date[1] & "/" & $date[2],_NowCalcDate())) > 7  then

                DirRemove($Filelist[$i])

            EndIf

Next
 

Du coup la recherche trouve bien les dossiers mais il ne sont pas supprimé (meme avec le flag 0).
Une idée?

Merci

[DimVar]

Bonjour,

Je mettrai consolWrite (ou msgbox) avant ton dirremove pour voir si ta condition est bonne.

Cdlt.

[mikell]

Tu devrais essayer en mettant des antislash "\" à la place des slash "/"

[sirus]

Salut,

désolé pour mon absence mais départ en week end attife.

J'ai trouvé la solution à mon problème:
à la place de DirRemove($Filelist[$i]) il faut mettre DirRemove($Filelist[$i],1) sinon ça ne supprime que les dossiers vide.

Pour ceux que ça intéresse , je met le code complet:

► Afficher le texte

Code : Tout sélectionner

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

$FileList=_FileListToArray(@ScriptDir,"*.*",2)

If (Not IsArray($FileList)) and (@Error=1) Then
    MsgBox (0,"","Pas de fichier dans: " & @ScriptDir)
    Exit
EndIf

For $i=1 to $Filelist[0]

      $date=filegettime(@scriptdir & "/"  & $Filelist[$i])

      Msgbox(0,$Filelist[$i],"Aujourd'hui: " & $Date[0] & "/" & $date[1] & "/" & $date[2] & @Lf & "Date du fichier: " & _DateAdd( 'd',2, _NowCalcDate()) & @lf & "Difference entre les deux dates:" & Abs (_datediff("D",_nowcalc(),$Date[0] & "/" & $date[1] & "/" & $date[2])))

            If Abs(_datediff("D",$Date[0] & "/" & $date[1] & "/" & $date[2],_NowCalcDate())) > 7  then

                DirRemove($Filelist[$i],1)

            EndIf

Next

merci pour votre aide