Compter le nombre de fichiers avec la même extension [Résolu]

Signaler
Messages postés
14
Date d'inscription
jeudi 18 août 2005
Statut
Membre
Dernière intervention
25 juin 2009
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour,

je cherche à compter le nombre de fichier qui ont la même extension dans un répertoire.
J'utilise un DIR pour trouver le nom du fichier portant l'extension qui m'intéresse, mais si j'ai plusieurs fichiers avec la même extension, il me prend le dernier.

Avez-vous une solution?

Merci

6 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Dir existe encore en VB.Net :o

Dim nFileCount as Integer
Dim FileName as string

FileName = Dir ("C:\MonDossier\*.MonExtension")
Do While LenB( FileName )
     nFileCount = nFileCount + 1
    FileName = Dir()
Loop

MsgBox nFileCount

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Salut, oui incrémenter la recherche, regarde du côté de codyx!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Re encore plus simple en VB.net avec GetFiles, mais si notre ami avait un peu cherché sur le site il aurai trouvé la réponse depuis longtemps!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Salut,

Et non, Dir n'existe plus en dotnet.
On utilise System.IO :







Dim





FileCount
As




Integer

= System.IO.Directory.GetFiles(

"C:"

,

"*.jpg"



).Length
Console.Write(FileCount)








__________
Kenji
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Et voilà ce que l'on trouve en faisant un petit tour sur codyx:
http://www.codyx.org/snippet_compter-nombre-fichiers-dans-repertoire_263.aspx#845



Function
CountFilesFromDirectory(ByVal sDir AsString, OptionalByVal sFilter AsString = "*.*") AsInteger

IfMy.Computer.FileSystem.DirectoryExists(sDir) Then

Dim CountFiles AsInteger
CountFiles = My.Computer.FileSystem.GetFiles(sDir, FileIO.SearchOption.SearchTopLevelOnly, sFilter).Count
Return CountFiles
Else

MsgBox("Le répertoire n'existe pas")
EndIf

EndFunction

'EXEMPLE D'UTILISATION:
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CountFilesFromDirectory("C:", "*.xls")
EndSub





 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Je me disais aussi, Dir toujours sous .Net, ca me surprenait ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic