Me sale permiso error 70 visual basic

A todos/as mi pregunta es la siguiente:

Tengo este código:

directorios = C:\documents\marcas\

subcarpeta = Nike

Set fso = CreateObject("Scripting.FileSystemObject")
        Set fso = fso.GetFolder(cp)
        numero_arch = fso.Files.Count
        If numero_arch = 0 Then
       ' Borramos la carpeta origen del TTOO y avanzamos a la siguiente carpeta
            Ruta = directorios & subcarpeta
            Set fso = CreateObject("Scripting.FileSystemObject")
            fso.DeleteFolder Ruta, True
         End If

Y quiero eliminar de la ruta la carpeta nike que está vacía pero cuando hago lo expuesto en el código me muestra permiso denegado, error 70. No se porque no encuentro la solución.

1 Respuesta

Respuesta
1

H o l a : Los nombres de los directorios y de la supcarperta deben ir entre comillas.

Revisa que los nombres estén bien escritos.

Te anexo la macro actualizada

Sub Borrar()
'Act.Por.Dante Amor
    directorios = "C:\documents\marcas\"
    subcarpeta = "Nike"
    '
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set arch = fso.GetFolder(directorios & subcarpeta)
    If arch.Files.Count = 0 Then
        fso.DeleteFolder directorios & subcarpeta, True
    End If
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas