[Ivan Bardeen]

Пожалуйста, направите в нужное русло... »

Вот вам скрипт на vbs, который решает вашу задачу - и пишет в лог c:\temp\log.txt

Код:

Const ForAppending = 8
i=0

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.CreateTextFile("C:\temp\Log.txt", ForAppending, TRUE)


ShowSubFolders FSO.GetFolder("D:\data")
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