Tengo este codigo:
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(App.Path & "\fotos_pujades\" & carpeta) = False Then
fs.CreateFolder (App.Path & "\fotos_pujades\" & carpeta)
End If
fs.CopyFile App.Path & "\fotos\" & foto, App.Path & "\fotos_pujades\" & carpeta
Set fs = Nothing
Tengo control total sobre las dos carpetas, la de origen y la que creo dinamicamente hereda los permisos de la carpeta padre.
Pero me da un error de permiso denegado al intentar copiar
