supprimer des fichiers selon leur nom

bonjour

Je voudrai supprimer les fichiers d'un répertoire dont le nom commence par
"pres"

j'ai essayé le code suivant sans résultat

Code:

---

1 2 3 4 5 6 7

For Each Fichier In FSO.GetFolder(strDirCOPIE).Files t1= Fichier.Name if left(t1,4) ="pres*" then   fichier.delete end if next

---

merci pour vos réponses

:salut:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim strDirCOPIE strDirCOPIE = "c:\test" Set FSO = CreateObject("scripting.FileSystemObject") For Each Fichier In FSO.GetFolder(strDirCOPIE).Files t1= Fichier.Name if left(t1,4) ="pres" then MsgBox t1 Fichier.delete end if Next

---

bonjour
Un grand merci pour cette réponse
Cela fonctionne désormais
Bonne journée

Citation:

---

Envoyé par qmike

bonjour
Un grand merci pour cette réponse
Cela fonctionne désormais
Bonne journée

---

:salut:
il faut donc me payer cash et pas de crédit par cette devise :plusser: et passer en mode :resolu:
Bonne Journée !