Bonjour,

je voudrai supprimer le dossier le plus ancien dans un repertoire.

j'ai le bout de code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
set rep_to_delete = FSO.GetFolder(chemin)
quelle est le probleme ? je ne comprend pas pourquoi ca ne fonctionne pas.

merci par avance.