Discussion :

[qmike]

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

[omen999]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[qmike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pas loin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[qmike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[qmike]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

[qmike]

bonjour
Il s'agit bien de ton message
Cela fonctionne

[l_autodidacte]

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.