Extension fichier text

Résolu
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 26 oct. 2006 à 16:53
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 26 oct. 2006 à 19:44
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

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
26 oct. 2006 à 17:14
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
3
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
26 oct. 2006 à 19:44
Salut,


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


Merci encore


Exploreur


A+
0
Rejoignez-nous