Обход директорий¶

Const ForAppending = 8
i=0

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.CreateTextFile("\\ads01\netlogon\samson.git\Log.txt", ForAppending, TRUE)


ShowSubFolders FSO.GetFolder("C:\samvist")
'ShowSubFolders FSO.GetFolder("F:\data")

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        objFile.WriteLine "Для папки:" & Subfolder.path
            For Each file In Subfolder.files
             If file.name = "filename.vvv" Then
             objFile.WriteLine "Все хорошо!"
             i=1
             Exit For
             End If
            Next
             If i =0 Then 
                objFile.WriteLine "Все плохо!"
             End If 
             i=0
        ShowSubFolders Subfolder
    Next
End Sub