VisualB 2005 buble for Each

[pauly_0090]

Hola que tal buen dia, veran tengo la siguiente situacion: me encargaron hacer una aplicacion de consola pero no se utilizar mucho el for each y me manda un error, alguien podria ayudarme por favor



For Each a As Directory In archivo
For Each b As Directory In archivo1

If (a.Equals(b)) Then
Shell("net use I: /d")
Else
Shell("C:\Windows\system32\xcopy.exe "" \\SISTEMAS4\Facturas\" & aiio & "\" & mes & "/I /Y /Q /E /H")
Shell("net use I: /d")
End If

Next
Next


ese es mi codigo pero no hace nada, solo quiero que me digan si esta bien aplicado el for each para comparar ambos directorios.

Por favo espero puedan ayudarme con mi duda.

Que tengan un excelente dia.