travailler sur les extensions en vbs

Bonjour

Pouvez vous me dire si il existe une éthode simple pour faire un filtre en vbs ( ne recuperer que les fichiers .zip par exeple)

J'ai trouver cela

Code:

---

1 2 3

Monfichier = "C:\lalicense.xml" partfic = split(Monfichier,".") Monfichier = "." & partfic(1)

---

mais je suis obliger de rentrer le nom du fichier en dur
Merci d'avance

et tu ve les récupérer ou (comment..?) ces fichiers...?

Bonjour

Je voudrais lister tout les fichiers situés dans un repertoire.
Je pensait faire un truc du genre

Code:

---

1 2 3 4 5 6

For Each fichiers In fic If fichiers.extension = ".log" then ..... End If Next

---

Mais .extension ne fonctionne pas et je cherche donc une alternative
Merci d'avance

remplacer:

Code:

---

If fichiers.extension = ".log" then

---

par

Code:

---

If Right(fichiers.ShortName,3) = "log" then

---

Sans avoir testé mais en réfléchissant un peu, je dirais:

Code:

---

1 2 3 4 5 6 7 8

For Each fic In fichiers partfic = split(fic,".") extension = partfic(ubound(partfic))   If extension = "log" then msgbox extension End If Next

---

A toi de créer la collectoi fichiers...

Merci

Tout fonctionne
Bonne fete a tous