Bonjour,
Spécialiste du déterrage de topic au rapport
J'ai à peu près le même soucis que mims1664 mais moi c'est un AND ^^
Code :
- Set Folder = fso.Getfolder(TEST)
- For Each File In Folder.Files
- If (DateDiff("d", File.DateCreated, DateSysteme) > AgeMaximalFichiers) AND Const DeleteReadOnly = True
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- objFSO.DeleteFile("C:\TEST\*.txt" ), DeleteReadOnly Then
- File.Delete()
- End If
- Next
|
Le message d'erreur donne "Erreur de syntaxe" ligne 3.
Je n'arrive donc pas à exécuter deux conditions dans une boucle IF, pourriez-vous m'éclairer ?