I have the following script that I need a little help with adjusting
Basically the script goes to specified directory and lists the subfolders in the directory, is there any way I can stop it doing EVERY subdirectory of the subdirectories and only just list the direct subfolders within the specified folder?
Thanks for your help in advance
Dave
Basically the script goes to specified directory and lists the subfolders in the directory, is there any way I can stop it doing EVERY subdirectory of the subdirectories and only just list the direct subfolders within the specified folder?
Thanks for your help in advance
Dave
Code:
Sub TestListFolders()
Application.ScreenUpdating = True
' create a new workbook for the folder list
' add headers
With Range("A1")
.Formula = "Folder contents:"
.Font.Bold = True
.Font.Size = 12
End With
Range("A3").Formula = "Folder Path:"
Range("B3").Formula = "Folder Name:"
Range("A3:G3").Font.Bold = True
ListFolders "\\yorkshire2\Global\T - Technical\Sites\", True
Application.ScreenUpdating = True
End Sub
Sub ListFolders(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the folders in SourceFolder
' example: ListFolders "C:\FolderName", True
Dim FSO As FileSystemObject
Dim SourceFolder As Folder, SubFolder As Folder
Dim r As Long
Set FSO = New FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
' display folder properties
r = Range("A65536").End(xlUp).Row + 1
Cells(r, 1).Formula = SourceFolder.Path
Cells(r, 2).Formula = SourceFolder.Name
' Cells(r, 3).Formula = SourceFolder.Size
' Cells(r, 4).Formula = SourceFolder.SubFolders.Count
' Cells(r, 5).Formula = SourceFolder.Files.Count
' Cells(r, 6).Formula = SourceFolder.ShortName
' Cells(r, 7).Formula = SourceFolder.ShortPath
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFolders SubFolder.Path, True
Next SubFolder
Set SubFolder = Nothing
End If
Columns("A:G").AutoFit
Set SourceFolder = Nothing
Set FSO = Nothing
ActiveWorkbook.Saved = True
End Sub