Access - Problema con Kill y

   
Vista:

Problema con Kill y

Publicado por Elemento (13 intervenciones) el 05/02/2012 17:57:10
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

Problema con Kill y

Publicado por Neckkito (1104 intervenciones) el 06/02/2012 08:24:15
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)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar