Transferir arquivos de uma pasta(origem) para outra(destino)

Bom dia pessoal,

Tenho um script que percorre um determinado número de linhas no banco de dados,  montando o caminho de origem do arquivo para a transferencia ao seu destino, são 20.000 linhas e ao chegar na linha 1056 ele apresenta o erro abaixo, o problema é que o caminho existe, existe alguma maneira de pular o erro continuando a transferencia, e os que apresentarem este erro mostrar através de response.write.

Microsoft VBScript runtime error '800a0035'

File not found

Segue o codigo abaixo:

On Error Resume Next

contador = 0

while not conta.eof

contador = contador + 1

if Err.Number=0 then

	            'Response.Write "CERTO "& conta("nome_titular") & "<br>" & conta("cpf") & "<br>" & conta("arquivo") & "<br>"

	            

	            Dim objFSO

	            Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

	            

	            objFSO.CopyFile "e:\WWWSITE\intranet\imagens_site\associados\"&conta("cpf")&"\"&conta("ARQUIVO")&"", "e:\WWWSITE\intranet\10\"

	            response.Write contador& " - e:\WWWSITE\intranet\imagens_site\associados\"&conta("cpf")&"\"&conta("ARQUIVO") & "<br>"

	            

	            Set objFSO = Nothing

	        else

	            Response.Write (Err.Description& "<br><br>")

	            Response.Write "ERRADO "& conta("nome_titular") & "<br>" & conta("cpf") & "<br>" & conta("arquivo") & "<br>"

	        end if

	        On Error GoTo 0

	 

	    conta.movenext()

	    wend

	 

	 

	Muito obrigado!