Access - Problema con Kill y

Buenas y frescas...

Resulta que cuando quiero borrar un directorio que contiene archivos no hay problema,
peéeero cuando en el directorio no hay ningún archivo me da un error
(archivo no encontrado err.53), el error me lo dá Kill.

Estoy usando
Kill MiRuta & "\*.*"
RmDir MiRuta

Claro, qué pasa: Debo borrar los archivos primero para que RmDir funcione, pero si Kill me dá el error no elimina el directorio.

Hala,¿ ahora qué puente voy escogiendo?.....
Thanks.

Hola!

Puedes utilizar la función Dir para discriminar si hay archivos o no. Te pongo un código de ejemplo:

...
Private Sub ...
Dim miRuta As String, arch As String
miRuta = Application.CurrentProject.Path & "\Borrar"
miRuta = miRuta & "\*.*"
arch = Dir(miRuta)
If arch = "" Then
MsgBox "No hay"
'Código si no hay archivos
Else
MsgBox "Hay"
'Código si hay archivos
End If
End Sub
...

Espero que te sea útil.

Un saludo,

Neckkito (http://neckkito.eu5.org)