un conteurRésolu

Question

s'il vous plait, je voudrais une fonction qui permet de calculer le nombre de 
fichiers dans un repertoire merci
rene

cs_Warning · Accepted Answer

Dim compteur as long
Dim result as string

result = Dir(CHEMINDUDOSSIER & "\*.*")
While result <> ""
     compteur = compteur + 1
      result = Dir()
Wend


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_Jack · Answer

... lol 
'conteur' = celui qui raconte les histoires
'compteur' = celui qui compte les fichiers

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

ShareVB · Answer

salut,

dim c as long

if len(dir$("C:\Windows\*.*")) = 0 then c= -1
do   
  c=c+1
loop while len(dir$)
msgbox str(c) & "ficheirs"

ShareVB

Pierre_faucon · Answer

Bonjour

En cochant la r&#233;f&#233;rence "Microsoft Scripting Runtime" dans les r&#233;f&#233;rences du projet

Function NbreFichiers(Dossier As String) As Long
    Dim fs As New FileSystemObject
    
    NbreFichiers = fs.GetFolder(Dossier).Files.Count
End Function

Cette fonction renvoir le nombre de fichiers d'un dossier et ext exploitable dans du code comme n'importe quelle fonction

L'utilisation de FileSystemObject permet une manipulation tr&#232;s souple des fichiers et dossiers.

Ok?

Pierre Fauconnier

Un conteur

4 réponses

Discussions similaires