Liste dossiers et sous dossiers d'un disque

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Liste dossiers et sous dossiers d'un disque

maximus172

Bonjour,

Je souhaite faire une macro qui permette de récupérer tous les répertoires et sous répertoires (je ne m'occupe pas des fichiers) d'un disque réseau , ainsi que leurs tailles respectives.
Le tout serait regrouper dans un fichier excel...

Je continue à chercher mais si vous avez déjà eu à faire cette macro, cela m'interesse... :bounce:

Merci de votre aide

Publicité

maximus172

J'ai continué mes recherches. Voila ou j'en suis

Code :

Sub ListeRep()
Dim Fso As Object, A As Double
Dim File As Object, Répertoire As String
repertoire = "C:\Users\dossier\" 'choix du dossier à scanner
[A:A].ClearContents
NomRep = Dir(repertoire, vbDirectory)
i = 2
Do While NomRep <> ""
If NomRep <> "." And NomRep <> ".." Then
If (GetAttr(repertoire & NomRep) And vbDirectory) = vbDirectory Then
Cells(i, 1) = NomRep
'Taille du répertoire
Répertoire = "C:\Users\dossier\" & NomRep 'choix du dossier à scanner + nom du sous-repertoire
Set Fso = CreateObject("Scripting.FileSystemObject" )
Set File = Fso.GetFolder(Répertoire)
Cells(i, 2) = File.Size
i = i + 1
End If
End If
NomRep = Dir
Loop
End Sub

Cela permet de lister les sous-répertoires d'un répertoire donné... il me reste à faire une boucle pour pouvoir passer au travers de tous les sous-répertoires...

Marc L

Bonjour, bonjour,

rien qu'en consultant l'exemple de la doc officielle …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Liste dossiers et sous dossiers d'un disque

Sujets relatifs
disque dur	taille d'une page disque sous windows 7
page disque : taille et temps du chargement	Intégrer liste/boucle php dans un tableau html.
tri d'une liste et débogage	JCombobox : comment remettre la liste à 0?
Retirer une personne d'une liste de diffusion avant envoi	Problème création liste par VBA
[Rés]Incrémentation, redimenssionnement, valeur d'une liste modifiable	Les dossiers en deux mots dans MS-DOS
Plus de sujets relatifs à : Liste dossiers et sous dossiers d'un disque

Page générée en 0.036 secondes