[RESOLVED] APIs instead of File System Object

[msayed2004]

We can collect sub folder for another folder using a Reference to (scrrun.dll) , by this code :

Option Explicit
Dim FSO As New FileSystemObject
 
Private Sub cmdCollect_Click()
Dim SubFolder As Folder
Dim RootFolder As Folder
 
Set RootFolder = FSO.GetFolder("C:\)
For Each SubFolder In RootFolder.SubFolders
    Print SubFolder.Path
Next
End Sub

Can I do this with APIs , I prefer any method rather than (FindFirstFile,FindNextFile&FindClose) , if possible.

BTW : for VB6

Thanks