ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Finding Folders (https://www.excelbanter.com/excel-programming/304117-finding-folders.html)

Stan Scott

Finding Folders
 
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" wrote in message
...
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

Finding Folders
 
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

Finding Folders
 
Thank you Stan,

It worked a treat.

Don

"Stan Scott" wrote in message
...
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" wrote in message
...
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.








All times are GMT +1. The time now is 11:19 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com