Discussion :

[hageshii]

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.

[SfJ5Rpw8]

bonsoir,

qu'est censé faire cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chemin = sf.delete

?