Como ignorar erro e continuar o Loop de coleta de dados

Prezados !!
Boa tarde!

Mais uma vez  gostaria  do auxilio de vocês se possível.


tenho o Seguinte Codigo.


*********************************************************************************
Dim novoDir As String, ImportFile As String, Base_Name As String

novoDir = "\\sgdprd\sgd\transmitido\avisodes" 'Diretório Origem dos Arquivos'
ImportFile = Dir(novoDir & "\*.txt") 'Selecionar todos arquivos texto'

Do While Len(ImportFile) > 0

   Base_Name = Left(ImportFile, (InStr(1, ImportFile, ".") - 1)) 'Identificar o nome do arquivo implantado'
   DoCmd.TransferText acImportDelim, "Jere", "TB_IMPORTACAO", ImportFile 'Comando p/ import. Lay-out pré-definido, Tabela Final - TBL_TEMP'

   ImportFile = Dir
   
Loop
Exit Sub
*********************************************************************************


Ele roda legal,  e traz  os dados dos blocos de nota, porem
vira e meche da erro e para a importação,

seria possivel adaptar o codigo para ignorar o erro e continuar a inportação ?




desde sempre obrigado!!!

Tente colocar na primeira linha do seu código a instrução

Código:

On Error Resume Next

O mais certo seria ver porque está ocorrendo o erro e tentar fazer o tratamento desse erro

Sim ..
ele informa que não está localizando o Arquivo X e não da sequencia no loop.