Как перебрать все подкаталоги

    Dim fileNameArray As String
fileNameArray = Dir$("C:\TEMP\", 0)
Do While fileNameArray <> ""
Print fileNameArray
fileNameArray = Dir$()
Loop
Exit Function

    Dim fileNameArray As String
fileNameArray = Dir$("C:\TEMP\", 16)
Do While fileNameArray <> ""
Print fileNameArray
fileNameArray = Dir$()
Loop
Exit Function

Sub Initialize
 
Dim objFSO As Variant
Dim objRootFolder As Variant
Dim rootFolder As String
 
rootFolder = "C:\Test"
 
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set objRootFolder = objFSO.GetFolder( rootFolder )
Call GetDir_Recurse( objRootFolder )
 
End Sub
 
Sub GetDir_Recurse( SrcFolder )
 
Dim arrSubfolders As Variant
Set arrSubfolders = SrcFolder.SubFolders
Forall currentFolder In arrSubfolders
Print currentFolder.Name
Call GetDir_Recurse( currentFolder )
End Forall
 
End Sub

Const FILE_ATTRIBUTE_DIRECTORY = 16
Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (Byval lpFileName As String) As Long
 
Sub Initialize
 
Dim fileNameArray As String
Dim rootFolder As String
 
rootFolder = "C:\Test\"
fileNameArray = Dir$( rootFolder, 16 )
 
Do While fileNameArray <> ""
If IsDir( rootFolder & fileNameArray ) Then Print fileNameArray
fileNameArray = Dir$()
Loop
End Sub
 
Function IsDir( srcFolder )
 
IsDir = False
If GetFileAttributes( srcFolder ) = FILE_ATTRIBUTE_DIRECTORY Then IsDir = True
 
End Function

%Include "lsconst.lss"
Dim fileNum As Integer, attr As Integer
Dim fileName As String, msg As String
fileNum% = FreeFile()
fileName$ = "data.txt"
Open fileName$ For Output As fileNum%
Close fileNum%
SetFileAttr fileName$, ATTR_READONLY + ATTR_SYSTEM + _ ATTR_HIDDEN
attr% = GetFileAttr(fileName$)
If (attr% And ATTR_READONLY) Then
msg$ = msg$ & " Read-Only "
Else
msg$ = msg$ & " Normal "
End If
If (attr% And ATTR_HIDDEN)  Then msg$ = msg$ & " Hidden "
If (attr% And ATTR_SYSTEM)  Then msg$ = msg$ & " System "
If (attr% And ATTR_DIRECTORY) Then msg$ = msg$ & " Directory "
Print msg$
SetFileAttr fileName$, ATTR_NORMAL  Reset to normal.
Kill fileName$