FileSystemObject

[elziko]

I'm trying to use the FileSystemObject to give me an entire system directory structure. I use:

For Each ADrive In LocalFileSystem.Drives
[ADD NODE TO DIRECTORY TREE]
If ADrive.IsReady Then
Set TheFolders = LocalFileSystem.GetFolder(ADrive.DriveLetter & ":\&quot
For Each AFolder In TheFolders.SubFolders
[ADD CHILD NODE TO DIRECTORY TREE]
Next
End If
Next

where [ADD NODE TO DIRECTORY TREE] and [ADD CHILD NODE TO DIRECTORY TREE] represent code for a 3rd party tree control. This works fine giving me a list of drives and the first level of folders in each drive. HOWEVER how would I go through every subfolder of each folder and then every level of folders after that?????

Any help would be much appreciated!

elziko

 

[sunaj]

What about something like:

Function AddFolder(node)
For Each ADrive In LocalFileSystem.Drives
[ADD NODE TO DIRECTORY TREE]
If ADrive.IsReady Then
Set TheFolders = LocalFileSystem.GetFolder(ADrive.DriveLetter & ":\&quot
For Each AFolder In TheFolders.SubFolders
AddFolder (AFolder)
Next
End If
Next
End Function


i.e. call the function recursively...

 

[sunaj]

Hi Again

That was not really thought through -sorry. This should work:

------------------------------------------------------------
'Place a treeview and a command button on a form.
Dim LocalFileSystem
Dim ADrive As Variant

Private Sub Command1_Click()
Set LocalFileSystem = CreateObject("Scripting.FileSystemObject&quot
For Each ADrive In LocalFileSystem.Drives
If ADrive.IsReady Then
TreeView1.Nodes.Add , , ADrive.DriveLetter & ":\", ADrive
AddFolder (ADrive.DriveLetter & ":\&quot
End If
Next ADrive
End Sub

Function AddFolder(node As String)
Dim AFolder As Variant
Set TheFolders = LocalFileSystem.GetFolder(node)
For Each AFolder In TheFolders.SubFolders
TreeView1.Nodes.Add node, tvwChild, AFolder, AFolder
AddFolder (AFolder)
Next
DoEvents
End Function
------------------------------------------------------------

good luck
;-) Sunaj

 

[jmarler]

What Sunaj is suggesting is called recursion and yes, that is the way you want to do your scan. - Jeff Marler B-)