Display a list of FOLDERS in Column A 1

[addicted2]

Hi,can anyone show me a code that will lookin C:Household and display a list of it's sub folders in Column A of the active worksheet.

Thanks all B-)
Cheers
Tony

 

[acron]

Using the FileSystem Object the following will do what you want :

Sub ListFolders()
Dim fso, fldr, i As Long
    i = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder("C:\Household")
    For Each Folder In fldr.SubFolders
        Range("A1").Offset(i, 0).Value = Folder.Name
        i = i + 1
    Next
    Set fso = Nothing
    Set fldr = Nothing
End Sub

AC