'This file is meant to take a piped output from robocopy and only report files and
'directories that have changed, instead of every dir that robocopy touches.

'Usage: robocopy c:\ d:\ /s |cscript robo_filter.vbs > out.log
'It's critical that you specify "cscript" even if that is the default.

Option Explicit
Dim sArg, oStdIn, oStdOut, sLine, DirectoryName, BorderCounter, NewDir
BorderCounter=0 'the borders look like this: -------------------


'Parse out the important Lines from the incoming stream
Set oStdIn = Wscript.StdIn
Do While Not oStdIn.AtEndOfStream
	sLine = oStdIn.ReadLine
	If instr(SLine, "--------------")>0 Then BorderCounter = BorderCounter +1
	If BorderCounter <> 3 And (mid(sLine,2,10) <> "") Then 'The Mid part gets rid of empty lines
		wscript.echo SLine
		Else
			If (instr(sLine, chr(92)))>0 Then 'checks for "\" in the string which means it's a Directory
				DirectoryName = sLine 
				NewDir = True
				End If
			If (mid(sLine,2,10) <> "          ") And (mid(sLine,2,10) <> "") Then
				If NewDir = True And (instr(sLine, chr(92))_
    =0) Then wscript.echo DirectoryName 'Only print the dir name once
					wscript.echo trim(sLine)
					NewDir = False 'Until a new DirectoryName is encountered
				End If
		End If
Loop