[RESOLVED] Reading a folder

[frozen]

How would I read all sub folders of a folder, and then all files in the sub folders?

[jcis]

Here is a thread about that:
LINK

You'll just need to remove all Filename related stuff from that, cause you don't want to search, you want to list everything.

[frozen]

Public Function ReadFolder(Folder As String) As Object
    ReadFolder = CreateObject("Scripting.FileSystemObject").GetFolder(Folder).Subfolders
End Function

Run-timer error '91': Object variable or With block variable not set

[jcis]

What's that? You did that? thats not from the code in the thread.

You can't create and object and access its methods at the same time.

Try

Dim fso as Object, f as Object, FolderName as String
 
    FolderName = App.Path & "\SomeDir"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(FolderName)

PS: Don't use the CreateObject stuff now, you will add it at the end.
Now add the reference to Microsoft Scripting Runtime, and declare it like this:

Dim Fso    As Scripting.FileSystemObject

And Instanciate like this:

Set fso = New Scripting.FileSystemObject

[frozen]

I thought vb would have parsed it as

Public Function ReadFolder(Folder As String) As Object
    ReadFolder = CreateObject("Scripting.FileSystemObject")
    ReadFolder = ReadFolder.GetFolder(Folder).Subfolders
    ReadFolder = ReadFolder.Subfolders
End Function

:/ oh well. Thanks for the help. Got it workin.