Good excel code but does too much!!!

[vbcad]

Below is some code that works for what it was originaly intended. however all I would like to have it do now is create the list of Folders withing the main directory and only one sublevel below that. I do not need any file names just the folder names.

Sub prjFiles()
Workbooks.Add ' create a new workbook for the file list
    ' add headers
    Range("A1").Formula = "Project Number:"
    Range("B1").Formula = "Date Last Modified:"
    'Range("C1").Formula = "Short File Name:"
    Range("A1:B1").Font.Bold = True
    ListFilesInFolder "L:\Design\Projects", True
    ' list all files included subfolders
End Sub

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the files in SourceFolder
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
    Set FSO = New Scripting.FileSystemObject
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    r = Range("A65536").End(xlUp).Row + 1
    For Each FileItem In SourceFolder.Files
        ' display file properties
        Cells(r, 1).Formula = FileItem.Path
        Cells(r, 2).Formula = FileItem.DateLastModified
        'Cells(r, 3).Formula = FileItem.ShortName
        r = r + 1 ' next row number
    Next FileItem
    If IncludeSubfolders Then
        For Each subfolder In SourceFolder.SubFolders
            ListFilesInFolder subfolder.Path, True
        Next subfolder
    End If
    Columns("A:B").AutoFit
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
    ActiveWorkbook.Saved = True
    
End Sub

 

[SkipVought]

hi,

Please repost in forum707.

This forum is not designed to handle VBA question as well as forum707.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

how about this...

Sub ListFolders()
    Dim FSO As Object
    Dim SourceFolder As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")

    For Each SourceFolder In FSO.GetFolder(SourceFolderName)
        Debug.Print SourceFolder.Name
    Next
    
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]