[SendMessage]

Сейчас подумал - наверное, надо в каждой папке чтобы был файл.
Тогда так:

Код:

@echo off
for /f "tokens=*" %%a in ('dir /b/ad/s "D:\data" "F:\data"') do (
   if /i exist %%a\filename.vvv (
      echo в папке %%a - файл есть >> log.txt
      ) else (
      echo в папке %%a - файлa нет >> log.txt
   )
)

Ivan Bardeen, а вот этот цикл не лишний?

Код:

For Each file In Subfolder.files
  If file.name = "filename.vvv" Then
    objFile.WriteLine "Все хорошо!"
    i=1
    Exit For
  End If
Next

Так?

Код:

For Each Subfolder in Folder.SubFolders
  objFile.WriteLine "Для папки:" & Subfolder.path
  If FSO.FileExists(Subfolder.Path & "\filename.vvv") Then
    objFile.WriteLine "Все хорошо!"
  Else
    objFile.WriteLine "Все плохо!"
  End If
  ShowSubFolders Subfolder
Next