Finding Folders

[Stan Scott]

Don,

Google "File System Object" or "FSO". This ActiveX object will do exactly
what you need. For example, this Excel code lists all of the folders
immediately under the C:\ drive:

Sub runFolderList()
On Error Resume Next
Dim rootFolder
Dim subFolders
Set fso = CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder("C:\")
Set subFolders = rootFolder.subFolders

For Each folder In subFolders
Debug.Print "Folder: " & folder.Name
Next

Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
End Sub

Hope this helps,

Stan Scott
New York City

 

[Don Lloyd]

Hi,

Excel 97

Using the Dir function I have few problems with finding/listing files in
Drives/Folders/Subfolders etc. providing that I know the path.

How would I go about finding Folders in a Drive, Subfolders in a Folder
etc.?

Any help will be gratefully received.

Regards,
Don.

 

[Don Lloyd]

Thank you Stan,

It worked a treat.

Don

Don,

Google "File System Object" or "FSO". This ActiveX object will do exactly
what you need. For example, this Excel code lists all of the folders
immediately under the C:\ drive:

Sub runFolderList()
On Error Resume Next
Dim rootFolder
Dim subFolders
Set fso = CreateObject("Scripting.FileSystemObject")
Set rootFolder = fso.GetFolder("C:\")
Set subFolders = rootFolder.subFolders

For Each folder In subFolders
Debug.Print "Folder: " & folder.Name
Next

Set subFolders = Nothing
Set rootFolder = Nothing
Set fso = Nothing
End Sub

Hope this helps,

Stan Scott
New York City