Comment peut on supprimer tous les fichier .doc date du jour, avec la condition de ne pas supprimer ceux du dossier nommé "Mes fichiers" avec "_FileListToArrayRec" dans le code ci-joint.
j'ai pensé à la solution suivante :
Ajouter FileSetAttrib($array[$i]&"/Mes fichiers/, "+AHRS", 0) puisque "_FileListToArrayRec" ne supprime pas les fichiers cachés. Je cherche une meilleure proposition que celle proposée sur le scripte.
Merci d’avance pour votre aide.
Cordialement.
Func SuppFichiers()
Local $arrayDrive = DriveGetDrive("All")
For $y = 1 To $arrayDrive[0] ;boucle sur drive
$Drive = StringUpper($arrayDrive[$y]) & "\"
$array = _FileListToArrayRec($Drive, "*.doc", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) ;le file, récursive, pas de trie, chemin complet
If IsArray($array) Then
For $i = 1 To $array[0]
$info = StringLeft(FileGetTime($array[$i], 1, 1), 8)
$info_1 = StringLeft(FileGetTime($array[$i], 0, 1), 8)
If $info = @YEAR & @MON & @MDAY Or $info_1 = @YEAR & @MON & @MDAY Then ;si créé ou modifié
FileSetAttrib($array[$i], "-AHRS", 0)
Sleep(2000)
FileSetAttrib($array[$i]&"/Mes fichiers/*.doc", "+AHRS", 0)
Sleep(2000)
;~ ;FileDelete($array[$i])
FileRecycle ($array[$i])
EndIf
Next
Else
MsgBox(0,$Drive,"rien de trouvé")
EndIf
Next
EndFunc