supprimer le dossier le plus ancien
Bonjour,
je voudrai supprimer le dossier le plus ancien dans un repertoire.
j'ai le bout de code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set MonRep=FSO.GetFolder("D:\sauvegarde_test")
datemin = Date()
for each sf in monrep.subfolders
If sf.datelastmodified < datemin then
datemin = sf.datelastmodified
chemin = sf.delete
end if
next
set rep_to_delete = FSO.GetFolder(chemin)
rep_to_delete.delete |
mais j'ai toujours une erreur "Argument ou appel de procédure incorrect" sur la ligne
Code:
set rep_to_delete = FSO.GetFolder(chemin)
quelle est le probleme ? je ne comprend pas pourquoi ca ne fonctionne pas.
merci par avance.
