[Iska]

Для двух можно просто:

Код:

If StrComp(f.Name, "bla-bla-bla.ext", vbTextCompare) = 0 Or _
	StrComp(f.Name, "bla-bla-bla2.ext", vbTextCompare) = 0 Then
	
	' Exclude. Nothing to do.
Else
	FSO.CopyFile f.Path, Dir2, True
End If