Extension fichier text [Résolu]

Signaler
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
Bonjour à tout le monde,

Quelqu'un aurai l'aimable gentillesse de m'expliquer comment on fait pour trouver tout les fichiers text d'un répertoire Car j'ai besoin de faire une recherche que sur l'extention *.txt.

Merci à tous pour votre aide.

A+
Exploreur

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut
= > Moteur de recherche ....

Sinon essaie ceci

Dim NomFichier As String 
Dim NomRep As String 
NomRep = "C:" 
' Extrait la première entrée.
NomFichier =  Dir (NomRep & "*.txt") 
' Commence la boucle.
Do While NomFichier <> "" 
    'Ton traitement
    NomFichier  = Dir    ' Extrait l'entrée suivante.
Loop 

@+,   Ju£i?n
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Salut,


Merci beaucoup Jrivet, c'est exactement ce que je souhaitais.


Merci encore


Exploreur


A+