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?

RmDir "C:\Temp\A B"

Edito ante tu edición ... 

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

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

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

Yo sólo soy el hijo -Jesús- ... el de la palabra infalible es Él ...