目标文件夹名称过长时，FileSystemObject.CopyFolder返回“权限被拒绝”

Question

我正在使用以下文件复制文件：

Sub copyF(source As Variant, dest As Variant)
Dim fso as FileSystemObject
Set fso = new FileSystemObject
fso.CopyFolder source, dest

当dest是非常长的文件夹路径时，例如：

\\aaaaaaaa-aaaaa\aaaaaaaaaaaaaaaaaaaaa\aaaaaaaaaaaaaaaaaaaaaaaaaaa\aaa Analysis\aaa translation\Translation In Progress - TEST\129-aaaaaa

然后CopyFolder引发错误：

Permission denied

在将文件复制到129-aaaaaa之后但在此处创建新的子文件夹之前，将返回此错误。这表明为子文件夹生成的新文件夹路径对于CopyFolder来说太长了，因为当我使用非常短的文件夹路径时，例如：

C:\users\myId\testfolder

然后整个CopyFolder操作成功。

有什么方法可以解决CopyFolder中文件夹路径长度的限制吗？