I'm not exactly sure what you will do with the folders but try this.

Option Explicit

' Add Reference Microsoft Scripting Runtime

Public Sub FindFolders()

Dim fsoFileSystemObject As FileSystemObject
Dim parentFolder As Folder
Dim collectionOfFolders As Folders
Dim childFolder As Folder
Dim strTemp As String

Set fsoFileSystemObject = CreateObject("Scripting.FileSystemObject")

Set parentFolder = fsoFileSystemObject.GetFolder("C:\")
Set collectionOfFolders = parentFolder.SubFolders

For Each childFolder In collectionOfFolders
strTemp = strTemp + childFolder.Name + vbCrLf
Next

MsgBox strTemp

End Sub

Good luck.



*** Sent via Developersdex http://www.developersdex.com ***