For Each SubFolder in Folder [VB6]

[Shaitan00]

Given a Folder Tree (sample below) that contains files [Data.txt] I need to read into my code.
C:\DATA\001\A\Data.txt
C:\DATA\001\B\Data.txt
C:\DATA\002\A\Data.txt
C:\DATA\003\B\Data.txt
... etc ...

I need to find a way to loop through each folder in C:\DATA\

Pseudo-Code:
For each numberFolder in C:\DATA
For each letterFolder in numberFolder
**DO SOMETHING**

If this was C# I could use foreach, but I noticed VB6.0 also has a For Each X in Y and was hoping I could use but todate all attempts have failed (it seems to only like collections of some sort).
Any ideas? Clues? Help? Thanks,

[Comintern]

You can do this with the FileSystemObject.

'Add reference to Microsoft Scripting Runtime
Dim oFileSys As Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder

Set oFileSys = New Scripting.FileSystemObject
Set oFolder = oFileSys.GetFolder("C:\DATA\")

For Each oSubFolder In oFolder.SubFolders
    'Do something
Next oSubFolder

Set oFolder = Nothing
Set oFileSys = Nothing

[JonnyPoet]

You can do this with the FileSystemObject.

'Add reference to Microsoft Scripting Runtime
Dim oFileSys As Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder

Set oFileSys = New Scripting.FileSystemObject
Set oFolder = oFileSys.GetFolder("C:\DATA\")

For Each oSubFolder In oFolder.SubFolders
    'Do something
Next oSubFolder

Set oFolder = Nothing
Set oFileSys = Nothing

Very interesting code. But I'm sorry I cannot find anything about the filesystem object on my VB6.0 ?? Also nothing in help about that. Do I have to add any Dll or ocx before ?

Jonny Poet

[Comintern]

Very interesting code. But I'm sorry I cannot find anything about the filesystem object on my VB6.0 ?? Also nothing in help about that. Do I have to add any Dll or ocx before ?

It's part of the Microsoft Scripting Runtime. You should be able to add a reference to it in VB6. The .dll is scrrun.dll. If for some reason you don't have it on your machine, you can download it here:

http://msdn.microsoft.com/library/de...ist/webdev.asp

[JonnyPoet]

Given a Folder Tree (sample below) that contains files [Data.txt] I need to read into my code.
C:\DATA\001\A\Data.txt
C:\DATA\001\B\Data.txt
C:\DATA\002\A\Data.txt
C:\DATA\003\B\Data.txt
... etc ...

I need to find a way to loop through each folder in C:\DATA\

Pseudo-Code:
For each numberFolder in C:\DATA
For each letterFolder in numberFolder
**DO SOMETHING**

If this was C# I could use foreach, but I noticed VB6.0 also has a For Each X in Y and was hoping I could use but todate all attempts have failed (it seems to only like collections of some sort).
Any ideas? Clues? Help? Thanks,

You have already done this question before and I have put you a zip in yor request.

I put it here so it should not be any problem for you to pick it up. A newer Version which takes every letter from A to Z also if there are some missing is attached too. Its for exactly how you wrote. If you need other filenames and other subnames you can easily change the loop a bit. It loops trough it it doesn't use a for each.

Jonny Poet