Compter le nombre de fichiers avec la même extensionRésolu

Question

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

Renfield · Accepted Answer

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

drikce06 · Answer

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:

drikce06 · Answer

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:

Utilisateur anonyme · Answer

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

drikce06 · Answer

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:

Renfield · Answer

Je me disais aussi, Dir toujours sous .Net, ca me surprenait ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Compter le nombre de fichiers avec la même extension

6 réponses

Votre réponse

Discussions similaires