J'ai un souci pour supprimer des profils sur mon poste; Je souhaite supprimer des profils dans "C:\users\" datant de plus d'un mois,
jusqu'ici aucun souci, quand je fais un test sur un dossier créer sur le bureau pour vérifier si tout fonctionne, ca marche et le script supprime bien les dossiers datant de plus d'un mois.( j'ai modifié la date des dossiers grâce à un petit logiciel).
Ensuite c'est la que le problème apparaît. Quand je veux supprimer des profils datant de plus d'un mois présent sur mon poste, impossible, il ne supprime rien, alors je suis bloqué et je sollicite votre aide.
Merci par avance.
Voici mon script :
Code : Tout sélectionner
#include <File.au3>
#include <Date.au3>
#RequireAdmin
dim $Chemin = "C:\Users\"
Local $search = FileFindFirstFile($Chemin&"*.")
If $search = -1 Then
MsgBox(0, "ERREUR !", "Pas de Profil à supprimer !")
Exit
EndIf
While 1
Local $profil = FileFindNextFile($search)
If @error Then ExitLoop
$date=filegettime($chemin & "/" & $profil)
If Abs(_datediff("D",$Date[0] & "/" & $date[1] & "/" & $date[2],_NowCalcDate())) > 30 then
MsgBox("","",$chemin&$profil)
DirRemove($chemin&$profil,1)
EndIf
WEnd
FileClose($search)
