importar archivo a BD y eliminarlo

[Rael74]

Gracias por tomarte la molestia en ayudarme, pero creo que no sigo correctamente tus instrucciones.
Mira, el codigo que ejecuta la importación de mi archivo, es el siguiente:

Option Compare Database
Option Explicit
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long


Private Sub importar_Click()

Dim cambiarnombre As String

Esta parte de código , establece la ruta de acceso al archivo y, a continuación, se abre el asistente de importación
ChDrive "J:\"
ChDir "J:\RUTA\Carpeta"
DoCmd.RunCommand acCmdImport

Una vez importado el archivo que yo quiero, esta parte de código selecciona el objeto y lo renombro
DoCmd.SelectObject acTable, , -1
pp = (Application.CurrentObjectName)
DoCmd.Rename ("?" + pp)

Ahora, siguiendo tus instrucciones, incorporo esta linea, para borrar el archivo
DeleteFile "J:\RUTA\Carpeta\nombredearchivo.xls

End Sub
Y observo que no lo elimina.

Aparte de esto, el problema es otro:en la linea DeleteFile no se como decirle que archivo debe eliminar, ya que la Carpeta puede contener varios archivos y, de hecho, yo lo selecciono mediante el asistente
No estoy seguro de explicarme bien, espero no robarte mucho tiempo.

Saludos,