** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Borrar carpeta vba
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBorrar carpeta vba

 Responder Responder
Autor
Mensaje
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Tema: Borrar carpeta vba
    Enviado: 28/Marzo/2020 a las 20:07

Buenas tardes:

Conoceis algun sistema para eliminar una carpeta (en este caso, el nombre de la carpeta puede contener espacios en blanco) desde VBA?

Estoy probando con: rmdir "ruta_completa de la carpeta"

Pero o no funciona o soy muy torpe (opto por la la segunda opcion) me devuelve un error 75

He estado probando tambien:
    Dim FSO As Object

rutadoc1 = "g:\casa\PROPIETARIOS\pepito grillo"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder rutadoc1

este me da: error 70 permiso denegado

Alguna idea?

Gracias anticipadas

Editado por 01loko - 28/Marzo/2020 a las 20:34
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 28/Marzo/2020 a las 20:34
Yo acabo de probar esto, y furula perfectamente:
RmDir "C:\Temp\A B"

Edito ante tu edición ... LOL

Comprueba que tienes permisos en esa carpeta ... borrándola desde el explorador de windows.


Editado por Mihura - 28/Marzo/2020 a las 20:36
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Enviado: 28/Marzo/2020 a las 21:29
Tienes razon, Mihura:

En local lo hace correctamente, pero en una unidad de red me da el error.

No entiendo nada

vamos por pasos:

1º miro si existe la carpeta con     ' funciona
chdrive (rutadoc1)
chdir (rutadoc1)
if dir(nombre_carpeta,vbdirectory)=vbnullstring

2º en caso de existir muevo su contenido a otra carpeta con        'funciona
miarchivo=Dir(rutadoc1 &"\*.*")
do until miarchivo=""
name rutadoc1 &"\" & miarchivo as rutadoc & "\" & miarchivo
miarchivo=dir
loop

3ºelimino  la carpeta con

rmdir rutadoc1       'que es lo que falla


pero una vez visto lo que me dice Miura, veo que desde windows no me deja borrar tampoco ya que me da el error " la carpeta no se puede borrar porque otro programa abrio la carpeta o uno de sus archivos"

en el momento que paro los procesos de VBA me deja borrarla normalmente, lo cual me dice que alguno de estos se queda trabado o similar.


voy a hacerlo por tramos y seguire comentado




Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 28/Marzo/2020 a las 21:31
Porque güindous detecta que tienes 'abierta' la carpeta desde VBA. Antes de borrarla sitúate en otra distinta.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Enviado: 28/Marzo/2020 a las 21:49
Como siempre, Maestro, sus consejos son palabra de DIOS

Gracias, era exactamente eso. Una vez situado en otra carpeta he podido borrar

Una vez mas ... muchas gracias.

Podeis cerrar el hilo


Editado por 01loko - 28/Marzo/2020 a las 21:49
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 28/Marzo/2020 a las 21:53
LOL

Yo sólo soy el hijo -Jesús- ... el de la palabra infalible es Él ... Wink
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable