[Resolvido]Carregar arquivo mais novo

Boa tarde!

Por favor, criei um botão de importação, conforme código abaixo e gostaria de saber como faço para pegar o arquivo MAIS NOVO e deletar o anterior, pois o usuário diariamente irá gravar os arquivos neste diretório.


If Me.Sel_Sitef = -1 Then


DoCmd.RunSQL "delete * from tbl_SITEF"


On Error GoTo TrataErro

OpenFile = FreeFile
Contador = 0

Path = "P:\FATURAMENTO\RECOLHE\" 'Diretório Origem dos Arquivos'
File = Dir(Path & "\REL20*.csv") 'Selecionar todos arquivos texto'


Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("tbl_SITEF", dbOpenTable)


Open Path & File For Input As OpenFile
Do While Not EOF(OpenFile)
Line Input #OpenFile, StrLine

ReDim strVetor(Contador)
strVetor = Split(StrLine, ";")

On Error Resume Next

With rs
.AddNew
.Fields![LOJA] = Replace(strVetor(0), """", "")
.Fields![DATA] = Replace(strVetor(1), """", "")
.Fields![HORA] = Replace(strVetor(2), """", "")
.Fields![PDV] = Replace(strVetor(3), """", "")
.Fields![NSU] = Replace(strVetor(4), """", "")
.Fields![NSU_HOST] = Replace(strVetor(5), """", "")
.Fields![REDE] = Replace(strVetor(6), """", "")
.Fields![PRODUTO] = Replace(strVetor(7), """", "")
.Fields![TRANSACAO] = Replace(strVetor(, """", "")
.Fields![DOCUMENTO] = Replace(strVetor(9), """", "")
.Fields![VALOR] = Replace(strVetor(10), """", "")
.Fields![ESTADO TRANSACAO] = Replace(strVetor(11), """", "")
.Fields![COD RESP] = Replace(strVetor(12), """", "")
.Fields![DOC CANCEL] = Replace(strVetor(13), """", "")
.Fields![COD AUTOR] = Replace(strVetor(14), """", "")
.Fields![TIPO CARTÃO] = Replace(strVetor(15), """", "")
.Fields![N0 PARC] = Replace(strVetor(16), """", "")
.Fields![DATA LANC] = Replace(strVetor(17), """", "")
.Fields![USUARIO PEND] = Replace(strVetor(18), """", "")
.Fields![DATA PEND] = Replace(strVetor(19), """", "")
.Fields![HORA PEND] = Replace(strVetor(20), """", "")
.Fields![TEMPO RESP REDE] = Replace(strVetor(21), """", "")
.Fields![BANDEIRA] = Replace(strVetor(22), """", "")


.Update

End With

Contador = Contador + 1

Loop


Obrigada!

Olá, porque não coloca no código logo a seguir à importação a eliminação do ficheiro.
Assim, fica vazio para os próximo ficheiros e não corre o risco do utilizdor importar outra vez o mesmo ficheiro.

Para apagar usar o Kill caminho\nomeFicheiro
Abraço

Ao invés de excluir acho melhor mover para uma pasta PROCESSADOS, sabe como posso fazer isso?

Obrigada

Ola, estou no celular, mas efectue uma pesquisa ou F1 em NAME
Abraço

Olá Janete, teste assim no final da importação:

Código:

Name Path & File As "P:\FATURAMENTO\RECOLHIDO\" & File

Nota, não se esqueça de ter o  caminho P:\FATURAMENTO\RECOLHIDO\   (subpasta RECOLHIDO aberta)
Abraço

Muito obrigada!

Olá Janette,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço