VBSCRIPT pour supprimer des fichiers sur c:\

Bonjour,

Je souhaites faire un script qui me permettrait de parcourir tous les dossiers et sous-dossiers sur le disque C:\ d'un PC et de supprimer tous les fichiers .avi qui s'y trouvent .

Voici ce que je pensais faire:

'Supprimer les fichiers .avi du lecteur c:

option explicit

dim fso, nomFichier
Set fso =createObject("Scripting.fileSystemObject")
nomFichier = *.avi
nomFichier = "C\" & nomFichier

if fso.FileExists(nomFichier) then
fso.DeleteFile(nomFichier)
end if


Quelqu'un peut-il me dire si ce script fonctionnerais...car comme vous l'aurez deviné je suis plutôt nul en VBS...

Si mon script est mauvais merci de me dire comment faire pour que ça fonctionne.

Cordialement.