FS.MOVEFILE PERMISO DENEGADO
Publicado por VICENTE (32 intervenciones) el 19/02/2015 17:15:50
Hola Compañeros, tengo un problema que me está bloqueando todo el día, a ver si alguien me puede echar una mano
Creo una Función para mover archivos de una carpeta a otra y renonbrarlos:
El PROBLEMA, es que cuando ejecuto la función directamente (F8), va a la perfección, pero cuando llamo a la función desde un Form a través de su código, me da el error "PERMISO DENEGADO", en la línea de la función :
fs.movefile AA & BB, FF
Espero que alguien tenga alguna idea y me cuente.
Gracias por anticipado
Saludos
Creo una Función para mover archivos de una carpeta a otra y renonbrarlos:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function MoverPEDIDOCOMPRA01()
Dim fs As Object
Dim FileSystemObject As Object
'PASAMOS EL ARCHIVO PEDIDOCOMPRA01 A CARPETA BACKUP CAMBIANDO SU NOMBRE
AA = Application.CurrentProject.Path & "\Input\"
BB = Dir(AA & "PEDIDOCOMPRA*.TXT")
CC = AA & BB
dd = Format(Now(), "YYYYMMDDHHMM")
FF = AA & "Backup\" & "COMPRA" & dd & ".txt"
If BB = "" Then
MsgBox "No existen archivos LECTURAS en Carpeta Input"Else
Set fs = CreateObject("Scripting.FileSystemObject")
fs.movefile AA & BB, FF
End If
End Function
El PROBLEMA, es que cuando ejecuto la función directamente (F8), va a la perfección, pero cuando llamo a la función desde un Form a través de su código, me da el error "PERMISO DENEGADO", en la línea de la función :
fs.movefile AA & BB, FF
Espero que alguien tenga alguna idea y me cuente.
Gracias por anticipado
Saludos
Valora esta pregunta
0