Cita:
Iniciado por Mplus Hola amigos,
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

Tal vez si reemplazas el FileSystemObject por los comandos comunes de Visual Basic como Dir, MkDir y FileCopy....