[Resolvido]Tratando o erro por linha...

Hary,

Utilize estas duas funções para testar se o ficheiro existe, antes de o chamar

Function ExisteFicheiro(Endereco As String, Optional TipoFicheiro As String) As Boolean
'www.esnips.com\web\alexandreneves
Dim fso, fl, Pasta, strNomeFicheiro As String

ExisteFicheiro = False
Set fso = CreateObject("Scripting.FileSystemObject")
If InStr(1, Endereco, "*") > 0 Or InStr(1, NomeFicheiro(Endereco), ".") = 0 Then
If ExistePasta(Endereco) Then
Set Pasta = fso.GetFolder(EnderecoPasta(Endereco))
strNomeFicheiro = NomeFicheiro(Endereco)
For Each fl In Pasta.Files
If fl.Name Like "*" & strNomeFicheiro & "*" Then
ExisteFicheiro = True: GoTo FimDaFuncao
End If
Next
Else
ExisteFicheiro = False
End If
Else
ExisteFicheiro = False
If fso.FileExists(Endereco) Then
ExisteFicheiro = True
Else
ExisteFicheiro = False
End If
End If
FimDaFuncao:
Set fso = Nothing
End Function

Function ExistePasta(Endereco As String) As Boolean
'www.esnips.com\web\alexandreneves
Dim fso
Dim EnderecoPasta As String, Cont As Integer

For Cont = Len(Endereco) To 1 Step -1
If Right(Mid(Endereco, 1, Cont), 1) = "\" Then
EnderecoPasta = Mid(Endereco, 1, Cont)
Exit For
End If
Next
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(EnderecoPasta)) Then
ExistePasta = True
Else
ExistePasta = False
End If
Set fso = Nothing
End Function
Cumprimentos,