Supprimer les fichiers contenant les mots "xxxxxx"

Bonjours,
J'ai besoin que vous m'aidiez depuis se matin j'aissez de faire un code en vbs :cry: mais je n'y arriev pas pouvez vous m'aider ? il faut que sa fasse sa .


x= exemple

Qu'il aille dans c:\xxxxx\xxx\xxxxxx\x et que les fichier qu'il y a dans x il les regarde un par un et supprime les fichiers contenant les mot "xxxxxx" .

Merci d'avance j'espère que vous m'aiderez ;)

Coordialllement Toxyco

Et depuis ce matin tu n'as pas écrit plus de code que cela ?

voir pour parcourir les fichiers de ton dossier :
Comment lister les fichiers d'un dossier ?

le lire :
Comment lire le contenu d'un fichier texte ?

chercher une chaine :
Comment rechercher une chaîne de caractères dans une autre ?


;)

Si mais sa marche pas et je suis pas sur que sa fasse se que j'ai fait .

je c'est pas si c'est bon mias je c'est que j'ai pas reussi a mettre en relation supprimer et la recherche .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim stRep 'c:\Oracle\ora92 Dim oFSO,oFl Set oFSO = CreateObject("Scripting.FileSystemObject") stRep = "C:\Tmp" If oFSO.FolderExists(stRep) Then For each oFl in oFSO.GetFolder(stRep).Files Wscript.Echo oFl.Name Next End If Const ForReading = 1, ForWriting = 2 Dim oFso, f   Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading) Wscript.echo f.ReadAll f.Close pos = InStr(4, "na", "Juillet") 'renvoie 24 pos = InStr(27,"na", "Juillet") 'renvoie 0 File.Delete("c:\copyofmyfile.txt") Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")

---