Bonjour à tous,
J'avais lancé une demande qui a été effacée avant d'aboutir à 100% (cf Topic sur la perte récente d'information) .
Voilà, pour résumer, je dois faire la liste des répertoires directs d'une partition (pas des sous-répertoires) et je dispose à ce stade d'une macro capable de faire le travail sur un répertoire et non sur la racine d'une partition :
L'objectif est de faire le travail sur la racine ( C: ), mais la macro ne scanne que le premier repertoire => auriez-vous une piste svp ?
D'avance merci de votre aide
J'avais lancé une demande qui a été effacée avant d'aboutir à 100% (cf Topic sur la perte récente d'information) .
Voilà, pour résumer, je dois faire la liste des répertoires directs d'une partition (pas des sous-répertoires) et je dispose à ce stade d'une macro capable de faire le travail sur un répertoire et non sur la racine d'une partition :
Code:
Sub compterDossiersFichiers(SourceFolderName As String)
Dim Fso As Object, SourceFolder As Object, SubFolder As Object
Dim i As Integer
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(SourceFolderName)
i = 1
Cells(i, 1) = SourceFolder.Name
Cells(i, 2) = SourceFolder.Files.Count
Cells(i, 3) = SourceFolder.Size
For Each SubFolder In SourceFolder.SubFolders
i = i + 1
Cells(i, 1) = SubFolder.Name
Cells(i, 2) = SubFolder.Files.Count
Cells(i, 3) = SubFolder.Size
Next SubFolder
End Sub
Sub Test()
compterDossiersFichiers "C:\Program Files"
End Sub
L'objectif est de faire le travail sur la racine ( C: ), mais la macro ne scanne que le premier repertoire => auriez-vous une piste svp ?
D'avance merci de votre aide