Ola Pessoal, será que alguem pode me ajudar tenho a rotina abaixo para gerar arquivo texto, gostaria de saber como faço para retorna-la e tb como faço para deletar a tabela de arquivo texto existente, pois na segunda cópia recebo a mensagem que o arquivo já existe.

Private Sub cmdBackup_Click()
Set tAREA = DBEngine.Workspaces(0)
Set BASE = tAREA.OpenDatabase("C:sTextodTexto.mdb")

Dim Sql As String
RESP = MsgBox("Deseja efetuar a Exportação??", vbYesNo + vbQuestion, "AVISO")
If RESP = 6 Then
Set TbCAD = BASE.OpenRecordset("Clientes")

BASE.Execute "SELECT * INTO[Text;DATABASE=" & "C:BsTextoBackup].[Texto.txt]FROM[Clientes]"

End If
 
MsgBox "Base Expotada com Sucesso.", vbInformation, "Exportação"

End Sub

desde já brigadão

Não entendi muito bem a pergunta.

mas posso ajudar em partes...

para deletar o arquivo use o comando

     KILL "caminho do arquivoomedoarquivo"

se for uma tabela dentro do BD use a SQL

     Drop Table o nome da tabela

espero po ter ajudado

Anjo é o seguinte:

Na pasta BsTexto tenho uma sub pasta "Backup" e é pa ela que envio o arquivo texto,

1º. - Gostaria de saber como deletar este arquivo para fazer nova Cópia, pois se não for deletado não consigo fazer a cópia novamente

2º. - Se necessitar de retornar o arq text para a tabela como faço

Set TbCAD = BASE.OpenRecordset("Clientes")

para deletar o arquivo

 

KILL "c:stextoackup     exto.txt"

Brigadão

deu certo

Agora preciso copiar o arquivo texto para tabela Cliente.mdb, ou seja, retornar