Liste dossiers et sous dossiers d'un disque

Liste dossiers et sous dossiers d'un disque - VB/VBA/VBS - Programmation

Marsh Posté le 24-02-2014 à 19:36:29    

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

Reply

Marsh Posté le 24-02-2014 à 19:36:29   

Reply

Marsh Posté le 24-02-2014 à 19:51:16    

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

Code :
  1. Sub ListeRep()
  3. Dim Fso As Object, A As Double
  4. Dim File As Object, Répertoire As String
  6.   repertoire = "C:\Users\dossier\" 'choix du dossier à scanner
  7.   [A:A].ClearContents
  8.   NomRep = Dir(repertoire, vbDirectory)
  9.   i = 2
  10.   Do While NomRep <> ""
  11.      If NomRep <> "." And NomRep <> ".." Then
  12.         If (GetAttr(repertoire & NomRep) And vbDirectory) = vbDirectory Then
  13.            Cells(i, 1) = NomRep
  14.          
  15.            'Taille du répertoire
  16.   Répertoire = "C:\Users\dossier\" & NomRep 'choix du dossier à scanner + nom du sous-repertoire
  17.      Set Fso = CreateObject("Scripting.FileSystemObject" )
  18.     Set File = Fso.GetFolder(Répertoire)
  19.     Cells(i, 2) = File.Size
  20.            i = i + 1
  21.         End If
  22.      End If
  23.      NomRep = Dir
  24.   Loop
  25. 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...
 
 

Reply

Marsh Posté le 26-02-2014 à 10:24:30    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed