Pb avec les expressions régulieres

Bonjour,

je me suis basé sur la FAQ écrite sur ce site pour faire mon expression régulière en vb, mais je n'y arrives pas.
Meme en recopiant bêtement le code fourni dans la FAQ ca ne marche pas.

Mon probleme est simple, je dois supprimer ts les fichiers dont l'extension est du type .aaaammjj , j ai donc opté pour les expressions régulieres .

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Set RegularExpressionObject = New RegExp   With RegularExpressionObject .Pattern = "^(.(1|2)[0-9]{3}(1-2)[0-9][0-3][0-9])$" .IgnoreCase = False End With     MsgBox RegularExpressionObject.Test(".20091105") MsgBox RegularExpressionObject.Test(".30091105")

---

Je n'ai aucun message qui apparait que ce soit avec mon code ou avec le code fourni par la FAQ.

salut,

Citation:

---

Je n'ai aucun message qui apparait

---

inquiétant... car tu devrais au moins avoir le message "Faux" :aie:

à moins que les extensions ne soient listées dans un fichier texte global, je ne vois pas trop l'intérêt d'utiliser les expressions régulières dans ce cas précis

pourquoi ne pas tirer parti de la fonction IsDate ? 8-)

un truc comme ça (avec un test pour écarter les années futures) :

Code:

---

1 2 3 4

sExt="20091102" If Left(sExt,4) < 2011 Then MsgBox IsDate(Left(sExt,4) & " " & Mid(sExt,5,2) & " " & Right(sExt,2)) End If

---