Récuperer les fichiers sous critéres VBScript

Bonjour à tous
Comtment peut -on récuperer les noms des fichiers dont les 6 7 8 9 caractères sont 3420
Exempel Fichier1 azxaa3420ww.Txt
Fichier2 aqybb3420qa.Txt

sachant que le 3420 se trouve toujours au meme endroit dans les noms de fichiers
merci pour vos réponses

bonjour,

Code:

---

if InStr(Fichier1,"3420") = 6 then

---

bonjour
merci pour ta réponse
j'ai essayé d'adapter mais il me liste tous les fichiers du répertoire
et pas seulement les fichiers comprenant la valeur 3420 dans le nom

Code:

---

1 2 3 4 5 6 7 8 9 10

Set FSO = CreateObject("Scripting.FileSystemObject")   dossier_source = "i:\test\" For Each Fichier in FSO.GetFolder(dossier_source).Files   if InStr(Fichier,"3420") = 6 then Wscript.Echo Fichier end if   Next

---

merci pour vos réponses

Salut

Citation:

---

Envoyé par qmike

bonjour
......
j'ai essayé d'adapter mais......

Code:

---

1 2	if InStr(Fichier,"3420") = 6 then Wscript.Echo Fichier

---

---

Pas loin

Code:

---

1 2 3 4 5 6 7 8 9

Set FSO = CreateObject("Scripting.FileSystemObject") dossier_source = "i:\test\" For Each Fichier in FSO.GetFolder(dossier_source).Files   If InStr(Fichier.Name,"3420") = 6 Then Wscript.Echo Fichier.Name End If   Next

---

bonjour
merci pour ta réponse
depuis ce matin 6 heures j'essai de trouver la solution en vain
a chaque fois il m'affiche tous les fichiers sans tenir compte du filtre

Code:

---

1 2 3 4

If InStr(Fichier.Name,"3420") = 6 Then Wscript.Echo Fichier.Name End If

---

Salut,

c'est quand même bizarre qu'il t'affiche tout les fichiers tu est sur que c'est cette ligne de code qui les affiche ? essai :

Code:

---

1 2 3

If InStr(Fichier.Name,"3420") = 6 Then Wscript.Echo ">>>> " & Fichier.Name End If

---

bonjour
merci pour ce coup de main
Effectivement, maintenant cela fonctionne
avec le code suivant et du coup, il m'affiche bien les fichiers ayant dans le nom le chiffre 3420

j'ai à nouveau appris
merci encore

Code:

---

1 2 3 4 5 6 7 8 9

set FSO = CreateObject("Scripting.FileSystemObject") dossier_source = "i:\test\" For Each Fichier in FSO.GetFolder(dossier_source).Files   If InStr(Fichier.Name,"3420") = 6 Then Wscript.Echo ">>>> " & Fichier.Name End If Next

---

:koi: si tu parle de mon message je comprends pas ... je n'ai rien changé au code .. ou presque... une mauvaise manip de copier/coller ?

bonjour
Il s'agit bien de ton message
Cela fonctionne

Puisqu'il s'agit du message de bbil, j'ajouterais que, comme il l'a dit, la seule chose qu'il a ajoutée c'est la chaîne ">>>> " qui s'affichera dans la boîte de message.

Il faut donc revoir le code s'il le faut lettre par lettre.