Compte le nb de fichier d'un dossierRésolu

Question

Bonjour,
Je souhaiterais une aide sur VBA. Je d&#233;veloppe une petite application dans laquelle j'ai besoin de conna&#238;tre le nombre de fichier(s) pr&#233;sent(s) dans un dossier. 
Deux alternatives s'offrent &#224; moi :

1) Trouver le code qui me permet de compter le nb de fichier(s) d'un dossier directement. C'est l'objet de ma question. Une &#226;me charitable peut elle me la donner SVP ? avec un minimum d'explication sur ce code (je suis presque d&#233;butant). M^^eme avec ce code miracle, peut on m'aider avec la seconde alternative (histoire de progresser un peu.....

2)Utiliser le code suivant que j'ai trouv&#233; par ailleurs :



fileexists ((GetAttr("chemin	oto.xls") And vbDirectory) 0)


If fileexists = vrai Then


MsgBox  "Yes"
      else
            MsgBox "No" 
End If

  En effet, dans mon cas, je connais exactement le(s) nom(s) des fichiers &#233;ventuellement pr&#233;sent(s) dans le dossier. Je peux donc faire une boucle pour voir si ils existent et les compter.
Le code ci-dessus devrait retourner "Yes" si le fichier existe dans le dossier et "No" si il n'existe pas..... Mais &#231;a ne marche pas. Il renvoit "erreur 53, Fichier introuvable" justement qd le fichier n'est pas pr&#233;sent dans le dossier.

Est ce quelqu'un peut m'aider ? 
Merci beaucoup d'avance

 Lolo

cs_DARKSIDIOUS · Accepted Answer

Utilise la fonction Dir :



Dim sFichier as string

dim iNombreFichier as integer

iNombreFichier = 1

sFichier = Dir("c:\Dossier &#224; tester\*.*")

While sFichier <> ""



    iNombreFichier = iNombreFichier + 1

    sFichier = Dir()



Wend

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

vbalolo · Answer

If Dir(photo&#224;trouver, vbHidden) <> "" Then


'le fichier existe (vbHidden permet de le retrouver m&#234;me s'il est cach&#233;)


MsgBox "yes"




Else


MsgBox "no"

End If

Merci beaucoup pour la r&#233;ponse, j'ai &#233;galementtrouv&#233; en parall&#232;le sur le cours le code ci-dessus. 

D&#233;sol&#233; j'ai oubli&#233; les bases du d&#233;butant : avant de poser une question, s'assurer qu'une partie de la r&#233;ponse ne se trouve pas dans les cours....

 Lolo

Compte le nb de fichier d'un dossier

2 réponses

Discussions similaires