IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Écriture impossible liée à un Regex


Sujet :

VBScript

  1. #1
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut Écriture impossible liée à un Regex
    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
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  2. #2
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    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)
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    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 .
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  4. #4
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    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
    ?
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  5. #5
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    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
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  6. #6
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    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é ?
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  7. #7
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    C'est l'ouverture du fichier qui échoue. (Permission refusée)

    Le test est correct.
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  8. #8
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    Si tu es sûr du chemin et nom du fichier contenu dans Path_ListeXML
    Peut être ajouter le 3° parametre Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True)
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  9. #9
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    Oui, je suis sûr.
    Toujours pas avec True en plus.

    Voici le code entier actuel :
    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Dossier = "C:\Monitoring"  ' A spécifier !!!
    Path_ListeXML = Dossier & "\ListeXML.txt"
     
    Set fso = CreateObject("Scripting.FileSystemObject" ) 
     
     
    'On verifie que le repertoire à analyser existe 
    If (myName = Winrep = fso.FolderExists(Dossier) = False) Then 
        Erreur = MsgBox("Le dossier n'existe pas !" ) 
        Wscript.Quit 
    End If 
    Recherche(Dossier)
     
     
    Private Sub Recherche(FolderPath) 
     
    If not fso.fileExists(Path_ListeXML) Then
    Set OutPut = fso.CreateTextFile(Path_ListeXML,True)
    End If 
     
    Set Folder = fso.Getfolder(FolderPath) 
     
    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) 
     
    				If objRegex.Test(Fichier.Name) = True Then
    				  Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True)  '8 si on veut pas écrasé
    				  OutPut.WriteLine (Fichier.Name)
    			    End If
     
    		End If
    Next
    End Sub
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  10. #10
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    Si tu peux créer/écrire dans ce dossier, je ne vois pas ou cela coince.
    Pourquoi des parenthèses ? OutPut.WriteLine (Fichier.Name)
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  11. #11
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    OutPut.WriteLine Fichier.Name
    Même résultat.

    Avec On Error Resume Next, cela fonctionne niquel mais bon c'est pas propre.
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  12. #12
    Membre expérimenté
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2007
    Messages
    673
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2007
    Messages : 673
    Points : 1 580
    Points
    1 580
    Par défaut
    Bonjour,
    Petite remarque idiote : on ouvre le fichier Output à chaque fois qu'on trouve un nom de fichier correspondant au pattern, mais quand est-ce qu'on le ferme ?

  13. #13
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 155
    Points
    17 155
    Par défaut
    Citation Envoyé par tedo01 Voir le message
    Bonjour,
    Petite remarque idiote : on ouvre le fichier Output à chaque fois qu'on trouve un nom de fichier correspondant au pattern, mais quand est-ce qu'on le ferme ?
    Pertinent en effet.

    Citation Envoyé par Miistik Voir le message
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    OutPut.WriteLine Fichier.Name
    Même résultat.
    Avec On Error Resume Next, cela fonctionne niquel mais bon c'est pas propre.
    L'erreur est sur Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True) ou sur OutPut.WriteLine (Fichier.Name).


    Un petit nettoyage
    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
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Dossier = "C:\Monitoring"  ' A spécifier !!!
    Path_ListeXML = Dossier & "\ListeXML.txt"
     
    Set fso = CreateObject("Scripting.FileSystemObject" ) 
     
    'On verifie que le repertoire à analyser existe 
    If (myName = Winrep = fso.FolderExists(Dossier) = False) Then 
        Erreur = MsgBox("Le dossier n'existe pas !" ) 
        Wscript.Quit 
    End If 
     
    If Not fso.fileExists(Path_ListeXML) Then
    	Set OutPut = fso.CreateTextFile(Path_ListeXML,True)
    	OutPut.Close
    	Set OutPut = NotHing
    End If 
    Recherche(Dossier)
     
    Set fso = NotHing
     
    '----------------------------------------------------------------------------------------------------------------------
    Private Sub Recherche(FolderPath) 
    Set Folder = fso.Getfolder(FolderPath) 
    Set objRegex = new RegExp
    objRegex.Pattern = "(.w*)*\_3.9_(.w*)*\.txt"
    objRegex.IgnoreCase = True
    For Each Fichier In Folder.Files
    	If (FSO.GetExtensionName(Fichier.Path) = "txt") Then
     
    		If objRegex.Test(Fichier.Name) = True Then
    			Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True)  '8 si on veut pas écrasé
    			OutPut.WriteLine (Fichier.Name)
    			OutPut.Close '<----- la contribution de tedo01
    			Set OutPut = NotHing
    		End If
     
    	End If
    Next
    Set Folder = NotHing
    Set objRegex = NotHing
    End Sub
    '----------------------------------------------------------------------------------------------------------------------
    La vérification de l’existence ou non du fichier Path_ListeXML n'a pas vraiment à voire avec la Sub Recherche.
    La création de l'objet RegExe et son paramétrage n'a besoin d'être fait qu'une seule fois.

    En espérant que tu n'auras plus besoin d'utiliser une gestion d'erreur.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  14. #14
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    Bonjour,

    Merci à vous deux.

    Le dernier code donné ne génère plus d'erreur, néanmoins il n'écrit pas l'intégralité des fichiers dans ListeXML.txt.
    Apparemment, c'est le 2 dans OpenTextFile qui n'écrit qu'une seule ligne.
    Le test avec l'indice 8 fonctionne.

    Hum.

    EDIT: Je vais peut-être dire une bêtise mais ça serait pas le Output.Close qui m'empecherait d'écrire plus d'une ligne ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    If objRegex.Test(Fichier.Name) = True Then
    			Set OutPut = fso.OpenTextFile(Path_ListeXML, 2)  '8 si on veut pas écrasé
    			OutPut.WriteLine (Fichier.Name)
    			OutPut.Close 			                          
                            Set OutPut = Nothing
    End If
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

  15. #15
    Membre émérite

    Homme Profil pro
    Ingénieur Réseaux
    Inscrit en
    Juin 2012
    Messages
    877
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur Réseaux
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2012
    Messages : 877
    Points : 2 427
    Points
    2 427
    Par défaut
    Bonjour,

    Merci à vous deux.

    Avec une petite modif, cela réalise ce que je veux.

    Pour ceux que ça intéresse :
    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
    23
    Private Sub ListeFichierXML(FolderPath) 
    Set Folder = fso.Getfolder(FolderPath) 
    Set objRegex = new RegExp
    objRegex.Pattern = "(.w*)*\_3.9_(.w*)*\.xml"
    objRegex.IgnoreCase = True
    Set OutPut = fso.OpenTextFile(Path_ListeXML,2,True)  '8 si on veut pas écrasé
    For Each Fichier In Folder.Files
    	If (fso.GetExtensionName(Fichier.Path) = "xml") Then
     
    		If objRegex.Test(Fichier.Name) = True Then
     
    			OutPut.WriteLine (Fichier.Name)
    			'OutPut.Close 
    			'Set OutPut = Nothing
    		End If
     
    	End If
    Next
    OutPut.Close 
    Set OutPut= Nothing
    Set Folder = Nothing
    Set objRegex = Nothing
    End Sub
    Si la réponse vous a été donnée, pensez au Tag .
    Un petit aide à se sentir utile. Merci.

    "La folie. C'est de faire et refaire la même chose en espérant que le résultat sera différent."
    Albert Einstein

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. C#/ Acces : écriture impossible
    Par youipman dans le forum Accès aux données
    Réponses: 1
    Dernier message: 10/10/2008, 01h35
  2. Écritures indésirables liées à TNMPOP3
    Par Gilles Louïse dans le forum C++Builder
    Réponses: 0
    Dernier message: 09/05/2008, 14h39
  3. [clé USB] écriture impossible
    Par Harry dans le forum Périphériques
    Réponses: 8
    Dernier message: 02/10/2006, 18h17
  4. Réponses: 14
    Dernier message: 12/07/2006, 17h26
  5. Tables liées dans access à mysql : impossible de modifier
    Par alex38 dans le forum Installation
    Réponses: 2
    Dernier message: 20/04/2006, 18h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo