error 70 permiso denegado
Publicado por cooltan (4 intervenciones) el 15/07/2016 17:18:10
Buenas tardes, tengo el siguiente problema.
estoy hacienda un programa, donde tengo unos archivos en una carpeta y los trato y los llevo a otra carpeta y los borro de la de origen es decir:
Ese paso me lo hace perfectamente y a medida que voy metiendo las facturas en destino, las voy eliminando del origen. el problema me viene que cuando no tengo nada mas en origen deseo borrar esa carpeta de la siguiente manera :
El problema es que hago esto y me dice error 70 permiso denegado. Y no se en que estoy fallando. Me pueden auyudar gracias.
estoy hacienda un programa, donde tengo unos archivos en una carpeta y los trato y los llevo a otra carpeta y los borro de la de origen es decir:
1
2
Carpeta_Origen = H:\documents\marcas\xx.pdf
Carpeta_Destino = H:\documents\ tratadas\xx.pdf
Ese paso me lo hace perfectamente y a medida que voy metiendo las facturas en destino, las voy eliminando del origen. el problema me viene que cuando no tengo nada mas en origen deseo borrar esa carpeta de la siguiente manera :
1
2
3
4
5
6
7
8
9
10
11
12
Set fso = CreateObject("Scripting.FileSystemObject")
Set fso = fso.GetFolder(cp)
numero_arch = fso.Files.Count
If numero_arch = 0 Then' Borramos la carpeta origen y avanzamos a la siguiente carpeta
Ruta = directorios & subcarpeta
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder Ruta, True
End If
El problema es que hago esto y me dice error 70 permiso denegado. Y no se en que estoy fallando. Me pueden auyudar gracias.
Valora esta pregunta
0
