Method 4 of 4 Reference methods
This method uses for each ...next blocks.
The disadvantage is that you do not know the index numbers of any of the objects. I seldom use this method for that reason.
Sub FoldersAndFiles4()
For Each folder1 In _
WebDesigner.Application.ActiveWeb.AllFolders
Debug.Print _
"Folder named " & _
folder1.Name & _
" has " & folder1.Files.Count & " files."
For Each folder2 In folder1.Folders
Debug.Print _
vbTab & _
"Folder named " & folder2.Name & _
" has " & folder2.Files.Count & " files."
For Each folder3 In folder2.Folders
Debug.Print _
vbTab & vbTab & _
"Folder named "; folder3.Name & _
" has " & folder3.Files.Count & " files."
For Each folder4 In folder3.Folders
Debug.Print _
vbTab & vbTab & vbTab & _
"Folder named " & folder4.Name & _
" has " & folder4.Files.Count & " files."
For Each folder5 In folder4.Folders
Debug.Print _
vbTab & vbTab & vbTab & vbTab & _
"Folder named " & folder5.Name & _
" has " & folder5.Files.Count & " files."
Next 'folder5
Next 'folder4
Next 'folder3
Next 'folder2
Next 'folder1
End Sub
Click Method 1 for previous method.
Click Method 2 for next method.Click Method 3 for third method.
Method 4 Output is different. This is the only Output where the index values are not known.
Methods 1, 2 and 3 are all the same and are all able to show the index values.
Method 4 Output:
Folder named C:\Documents and Settings\rdahl\My Documents\
My Web Sites\AutomationInformation has 4 files.
Folder named Favorites has 12 files.
Folder named images has 11 files.
Folder named SteveDahl has 0 files.
Folder named Programming has 2 files.
Folder named Java has 1 files.
Folder named MicrosoftExcel has 1 files.
Folder named MicrosoftExpressionWeb has 2 files.
Folder named Images has 4 files.
Folder named Pages has 5 files.
Folder named Text has 22 files.
Folder named NavigationNodes has 5 files.
Folder named Tables has 27 files.
Folder named MicrosoftMSDN has 1 files.
Folder named MicrosoftOffice has 1 files.
Folder named MicrosoftOutlook has 1 files.
Folder named MicrosoftVBA has 3 files.
Folder named CommandBars has 9 files.
Folder named Favorites has 2 files.
Folder named General has 9 files.
Folder named Images has 5 files.
Folder named UserForms has 8 files.
Folder named VBIDE has 11 files.
Folder named MicrosoftWindows has 1 files.
Folder named MicrosoftWord has 1 files.
Folder named Printing has 1 files.
Folder named SQL has 1 files.
