How do I find all the folders and subfolders without using the filesystem object ?

[Predator]

I am trying to make my own explorer using the Treeview control.

Does anyone know of examples from the net ?

I can find all the folder names by the following code:

"
Dim numOfFolders
numOfFolders = dirSelect.ListCount

Dim folderCount
Dim folderName

for folderCount = 0 to numOfFolders - 1

folderName = dirSelect.List(folderCount)

Next folderCount
"

But how do I find out all the subfolder names and all the files that belong to these foldes ???

I CANNOT USE the filesystem object. Is there any other way ??

Thanks for your help.
Predator.

[chrisa_uk]

you can use the dri command

for folders...

dim strFolderName as string
    
   strFolderName=dir("c:\*.",16)
   do until strFoldername=""
       msgbox strFolderName  
       strFolderName=dir
   loop

for files

dim strFolderName as string
    
   strFolderName=dir("c:\*.*")
   do until strFoldername=""
       msgbox strFolderName  
       strFolderName=dir
   loop