Search Folders Method

[turnerje]

i am using the FileSearch.SearchFolders method, and I want to search folders, for other folders. What mso* object can I use? Do I need to add a new reference? Right now, the best that I can find is msoFileTypeAllFiles, but that returns too many objects. Many thanks in advance

Justin

[Edward Ulle]

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 ***