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
Partager