Merci pour vos réponse, j'ai regardé un peu, mais entre temps j'ai réussi à faire de mon coté, il y a tout de même quelques thermes que je n'ai pas compris :
Dim chListe, champ, i
i = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where FileName = 'vie paradisiaque.zip' and Extension = 'exe'" )
For Each objFile in colFiles
'objFile.delete
i = i + 1
'wscript.echo objfile.Name
champ = objFile.Name
chListe = "Le ou les fichier(s) suivant(s) ont bien été supprimé." & VbCrLf & VbCrLf
chListe = chListe & champ & VbCrLf
objFile.delete
Next
if i = 0 then
MsgBox("Aucun fichier trouvé" )
else
if i = 1 then
Wscript.Echo "Un seul fichier a été trouvé et va être effacé"
Wscript.Echo chListe
else
if i > 1 then
Wscript.Echo i & " fichiers ont été trouvé et vont être effacé."
Wscript.Echo chListe
end if
end if
end if
ça marche, efface même les fichiers en lecture seule et les fichiers cachés.
Bref il a l'air de bien marché, mais certaines lignes m'échappent :
"{impersonationLevel=impersonate}!\\"
Set colFiles = objWMIService.ExecQuery _ (le _ ici je ne sais pas à quoi il sert)
pour faire ce script, je me suis inspiré un peu partout.
