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

[Neto Dinizz 0]

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!

 

 

 

[Gustavo Emygdio Barboza 24]

Use essa função para ver se o arquivo existe... por mais que tenha visto que o arquivo existe pode ser um espaço no nome do arquivo arquivo ou um caracter estranho no nome do arquivo pode fazer não encontrar o arquivo...

 

Antes de copiar condicione na função 0 é por que não existe e se retornar 1 é por que o arquivo existe

Function ExisteArquivo(caminho)
On error resume next
ExisteArquivo = 0
dim fs
 set fs = Server.CreateObject("Scripting.FileSystemObject")
         if fs.FileExists(caminho) then
                   ExisteArquivo = 1
        end if
 set fs = Nothing
End function