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
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
