Borrar carpeta vba |
Responder |
Autor | |
01loko
Colaborador Unido: 17/Agosto/2017 Localización: Santander Estado: Sin conexión Puntos: 807 |
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? Editado por 01loko - 28/Marzo/2020 a las 20:34 |
|
Recordar de que soy nuevo y estoy aprendiendo.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 28/Marzo/2020 a las 20:34 |
Yo acabo de probar esto, y furula perfectamente:
Edito ante tu edición ... Comprueba que tienes permisos en esa carpeta ... borrándola desde el explorador de windows.
Editado por Mihura - 28/Marzo/2020 a las 20:36 |
|
01loko
Colaborador Unido: 17/Agosto/2017 Localización: Santander Estado: Sin conexión Puntos: 807 |
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.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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.
|
|
01loko
Colaborador Unido: 17/Agosto/2017 Localización: Santander Estado: Sin conexión Puntos: 807 |
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.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Enviado: 28/Marzo/2020 a las 21:53 |
Yo sólo soy el hijo -Jesús- ... el de la palabra infalible es Él ...
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |