Compter le nombre de sous-dossiers d'un dossier

Question

Bonjour,

Je souhaite, &#224; partir d'excel, compter le nombre total de sous-dossiers contenus dans un dossier donn&#233;. Et ce dans toute l'arborescence.
Je n'ai pas trouv&#233; de r&#233;ponse pour l'instant &#224; cette question, seulement pour compter le nombre de fichiers en fait, c'est pourquoi je poste cette question. Ca me semblait facile, mais impossible de mettre la main dessus.

Merci d'avance pour la r&#233;ponse,
Vincent

jpleroisse · Answer

Bonsoir,

Place un CommandButton et une ListBox sur ton UserForm.



Private Sub CommandButton1_Click()

Dim F As String, chemin

chemin = "C:\Mes documents"

F = Dir(chemin & "\*.*")

While F <> ""

  ListBox1.AddItem F

  F = Dir

Wend

End Sub



jpleroisse





Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

vcocheme · Answer

Bonjour, Merci beaucoup pour la réponse mais : 1. Cette méthode ne prend en compte que les fichiers, et je cherche les dossiers. Pour prendre en compte les dossiers, je l'ai modifié : F = Dir(chemin, vbDirectory) While F <> "" If Left(Right(F, 4), 1) <> "." Then UserForm1.ListBox1.AddItem F End If F = Dir Wend 2. Cette méthode ne prend en compte qu'un niveau d'arborescence, et je voudrais compter tous les sous-dossiers. Je n'ai toujours aucune idée de comment faire. En tout cas, merci beaucoup, le schmilblick avance, Vincent

Compter le nombre de sous-dossiers d'un dossier

2 réponses

Discussions similaires