Как открыть все папки в указанной папке! - VB

Формулировка задачи:

Помогите пожалуйста. Нужен код, или пример как открыть (при помощи цикла) все имеющиеся папки в указанной папке, чтобы проверить имеющиеся там фаилы. Заранее спасибо.

Решение задачи: «Как открыть все папки в указанной папке!»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> fso, oFile, oFolder, oSubFolder, sFiles
<font color="blue">Const</font> cstrPath = <font color="teal">"C:\Мои документы\"</font>

<font color="blue">Set</font> fso = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> oFolder = fso.GetFolder(cstrPath)

<font color="blue">For</font> <font color="blue">Each</font> oFile <font color="blue">In</font> oFolder.Files
    sFiles = sFiles & oFile.<font color="blue">Name</font> & vbCrLf
<font color="blue">Next</font>
<font color="blue">For</font> <font color="blue">Each</font> oSubFolder <font color="blue">In</font> oFolder.SubFolders
    <font color="blue">For</font> <font color="blue">Each</font> oFile <font color="blue">In</font> oSubFolder.Files
        sFiles = sFiles & oFile.<font color="blue">Name</font> & vbCrLf
    <font color="blue">Next</font>
<font color="blue">Next</font>
MsgBox sFiles
                        