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

Const ForAppending = 8
i=0

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.CreateTextFile("\\ads01\netlogon\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