Method 1 of 4 Reference methods
This method will use the fully qualified path to the object.
Sub FoldersAndFiles1()
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim strH As String
Dim strI As String
Dim strJ As String
Dim strK As String
Dim strL As String
h = 0
strH = _
"Folder " & h & ". named " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Name & _
" has " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Files.Count & _
" files."
Debug.Print strH
For i = 0 To _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Count - 1
strI = _
vbTab & _
"Folder " & h & "." & _
i & ". named " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Name & _
" has " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Files.Count & _
" files."
Debug.Print strI
For j = 0 To _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Count - 1
strJ = _
vbTab & _
vbTab & _
"Folder " & h & "." & i & "." & _
j & ". named " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Name & _
" has " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Files.Count & _
" files."
Debug.Print strJ
For k = 0 To _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Folders.Count - 1
strK = _
vbTab & _
vbTab & _
vbTab & _
"Folder " & h & "." & i & "." _
& j & "." & k & ". named " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Folders.Item(k). _
Name & _
" has " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Folders.Item(k). _
Files.Count & _
" files."
Debug.Print strK
For l = 0 To _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h).Folders.Item(i). _
Folders.Item(j).Folders.Item(k). _
Folders.Count - 1
strL = _
vbTab & _
vbTab & _
vbTab & _
vbTab & _
"Folder " & h & "." & i & "." & j & "." & _
k & "." & l & ". named " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Folders.Item(k). _
Folders.Item(l). _
Name & _
" has " & _
WebDesigner.Application.ActiveWeb. _
AllFolders.Item(h). _
Folders.Item(i). _
Folders.Item(j). _
Folders.Item(k). _
Folders.Item(l). _
Files.Count & _
" files."
Debug.Print strL
Next l
Next k
Next j
Next i
End Sub
Click Method 2 for next method.
Click Method 3 for third method.
Click Method 4 for fourth method.
Method 1, 2 and 3 Output will be identical and is shown below.
Folder 0. named C:\Documents and Settings\rdahl\
My Documents\My Web Sites\AutomationInformation has 4 files.
Folder 0.0. named Favorites has 12 files.
Folder 0.1. named images has 11 files.
Folder 0.1.0. named SteveDahl has 0 files.
Folder 0.2. named Programming has 2 files.
Folder 0.2.0. named Java has 1 files.
Folder 0.2.1. named MicrosoftExcel has 1 files.
Folder 0.2.2. named MicrosoftExpressionWeb has 2 files.
Folder 0.2.2.0. named Images has 4 files.
Folder 0.2.2.1. named Pages has 5 files.
Folder 0.2.2.2. named Text has 22 files.
Folder 0.2.2.2.0. named NavigationNodes has 5 files.
Folder 0.2.2.2.1. named Tables has 27 files.
Folder 0.2.3. named MicrosoftMSDN has 1 files.
Folder 0.2.4. named MicrosoftOffice has 1 files.
Folder 0.2.5. named MicrosoftOutlook has 1 files.
Folder 0.2.6. named MicrosoftVBA has 3 files.
Folder 0.2.6.0. named CommandBars has 9 files.
Folder 0.2.6.1. named Favorites has 2 files.
Folder 0.2.6.2. named General has 9 files.
Folder 0.2.6.3. named Images has 5 files.
Folder 0.2.6.4. named UserForms has 8 files.
Folder 0.2.6.5. named VBIDE has 11 files.
Folder 0.2.7. named MicrosoftWindows has 1 files.
Folder 0.2.8. named MicrosoftWord has 1 files.
Folder 0.2.9. named Printing has 1 files.
Folder 0.2.10. named SQL has 1 files.
