Recherche nb de fichiers

Signaler
Messages postés
4
Date d'inscription
lundi 21 août 2006
Statut
Membre
Dernière intervention
29 août 2006
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

Je cherche un code pour juste compter le nombre de fichier *.txt dans un répertoire que je spécifierait
Ou créer autand de variables string contenant le nom du fichier texte pour chaque fichier de ce type trouvé

Merci

Ragus

3 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,


Bien que je pense qu'une petite recherche t'aurait permis de trouver tout aussi rapidement, je te donne tout de même un éléments de réponse.


Ce code compte compte le nombre de fichiers *.txt  contenu dans C:\




Dim CptFile As Integer 
Dim CheminSpecifie As String 
Dim NomFichier As String 

CheminSpecifie =  "C:" 
NomFichier =  Dir (CheminSpecifie & "*.txt", vbArchive)     ' Extrait la première entrée.
CptFile  = 0
Do While NomFichier <> ""    ' Commence la boucle.
   CptFile = CptFile + 1 
   NomFichier = Dir    ' Extrait l'entrée suivante.
Loop 

Call MsgBox(" Il y a " & CptFile & " fichier(s) de type .txt dans " & CheminSpecifie) 

 







<small> Coloration syntaxique automatique [AFCK]</small>

       









 






@+,   Ju£i?n
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
salut,

voir ce snippet tout frais retournant le chemin de chaque fichier trouvé
http://www.codyx.org/snippet_lister-tous-fichiers-repertoire_198.aspx

++
PCPT   [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
49
ps : voir commentaire du snippet. le nombre trouvé est lRet + 1