[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

[megaloman]

Перед FSO.CopyFile f, (Dir2), True поставить On Error Resume Next
При этом не надо думать о именах файлов
При желании можно выводить куда-нибудь имена нескопированных файлов
If Err.Number <> 0 Then .........