Discussion :

[Miistik]

Bonjour le Forum,

Je sollicite votre précieuse aide.

Je cherche à vérifier les fichiers d'un dossier et écrire dans un .txt leur noms s'ils contiennent _3.9_. Pfiou tout ça.

J'ai essayé ce code qui malheureusement ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For Each Fichier In Folder.Files
		If (FSO.GetExtensionName(Fichier.Path) = "txt") Then
			Set OutPut = fso.OpenTextFile(Path_ListeXML,1)
			Set objRegex = new RegExp
			objRegex.Pattern = "(.w*)*\_3.9_(.w*)*\.txt"
			objRegex.IgnoreCase = True
			MsgBox(Fichier.Name) 
			'Set Matches = objRegex.Execute(Fichier.Name) 'Ok jusqu'ici
			Set Matches = objRegex.Test(Fichier.Name)
			'For Each Match in Matches    				                 'OutPut.WriteLine (Fichier.Name)
			'Next
			'If (Matches.Count=1) Then
			If (Matches=1) Then
				Set OutPut = fso.OpenTextFile(Path_ListeXML,1)
				OutPut.WriteLine (Fichier.Name)
			End If
 
		End If
Next

Merci à vous,


Miistik

[ProgElecT]

Salut

Ligne 14

Code :

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

Set OutPut = fso.OpenTextFile(Path_ListeXML,1)

Le dernier paramétre ne devrait il pas égal à 2 (ForWriting, Ouvre un fichier en écriture) plutot que 1 (ForReading, Ouvre un fichier en lecture seule)

[Miistik]

Salut ProgElecT,


Merci de ta réponse.
J'ai corrigé l'erreur.

Apparemment, le problème vient de

Code :

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

Set Matches = objRegex.Test(Fichier.Name)

On me dit Objet Requis.

Pourtant ma MessageBox au dessus affiche bien la liste de mes fichiers présents .

[ProgElecT]

Et si tu remplaces la ligne 14 par

Code :

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

			If objRegex.Test(Fichier.Name) = True Then

?

[Miistik]

Comme cela ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
For Each Fichier In Folder.Files
		If (FSO.GetExtensionName(Fichier.Path) = "txt") Then
 
			Set objRegex = new RegExp
			objRegex.Pattern = "(.w*)*\_3.9_(.w*)*\.txt"
			objRegex.IgnoreCase = True
			MsgBox(Fichier.Name) 
			'Set Matches = objRegex.Execute(Fichier.Name) 'Ok jusqu'ici
			'Set Matches = objRegex.Test(Fichier.Name)
		    'For Each Match in Matches   'I&tère la collection Matches.
			'	OutPut.WriteLine (Fichier.Name)
			'Next
			'If (Matches.Count=1) Then
			'If (Matches=1) Then
				'Set OutPut = fso.OpenTextFile(Path_ListeXML,2)
				If objRegex.Test(Fichier.Name) = True Then
				  Set OutPut = fso.OpenTextFile(Path_ListeXML,2)
				  OutPut.WriteLine (Fichier.Name)
			            End If
 
		End If
Next

Là, je n'ai plus la permission d'ouvrir mon fichier ... hum

[ProgElecT]

Tu ne rentres pas dans la condition If objRegex.Test(Fichier.Name) = True Then Le test renvoi False ou bien c'est l'ouverture du fichier qui est refusé ?