for /f "tokens=1" %%i in (dir.txt) do (Команды)

cd %%i

call :dodate %%i %1

set e1=%errorlevel%

if [%e1%]==[0] (команды)

Dim FSO, ResultFile, FileList
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("C:\test\")  'с какого каталога пойдем
ResultFile = "C:\test\files.txt" 'тут сохраним список всех файлов

WorkWithSubFolders TheFolder 'поехали

'обрабатывает поддиректории
Sub WorkWithSubFolders(ByVal AFolder)
 Dim MoreFolders, TempFolder
 File2List AFolder
 Set MoreFolders = AFolder.SubFolders
 For Each TempFolder In MoreFolders
   WorkWithSubFolders TempFolder
 Next
End Sub

'добавляет файлы из каталога в список
Sub File2List(AFolder)
Dim AFile, TheFiles
 'On Error Resume Next
 Set TheFiles = AFolder.Files
 For Each AFile In TheFiles
   If UCase(AFile.Path) <> UCase(ResultFile) Then
     Set FileList=FSO.OpenTextFile(ResultFile, 8, TRUE)
     FileList.Write AFile.Path & vbcrlf
     FileList.close
   End If
 Next
End Sub