将文件复制到目标

Question

我试图创建一个VBS，它应该遍历一个包含文件夹的目录，这些文件夹中包含文件。 这些文件夹以用户命名，我想遍历用户文件夹并将其中的文件复制到另一个文件夹中，该文件夹也以用户命名。将文件复制到目标后，还应从第一个文件夹中删除复制的文件。

这就是我目前所拥有的：

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("C:\Users\user\Desktop\folder")
Set fldrsub = fldr.SubFolders
For Each file In fldrsub
    Set firstPath = file
    myPath = Mid(firstPath,34,25)
    RTrim(myPath)
    WScript.Echo(myPath)
    Set pathTwo = fso.GetFolder("C:\Users\user\Desktop\" & myPath & "\data\")
    For Each oneFile In file.Files
        WScript.Echo oneFile
        oneFile.Copy(pathTwo)   
    Next        
Next

它假设遍历文件夹，然后从文件夹路径修剪用户名，在该文件夹内循环，并根据用户名将所有文件复制到目的地。

我收到错误＆＃34;权限被拒绝＆＃34; （800A0046）指向oneFile.Copy(pathTwo)命令，我对它进行了研究，发现它可能是由权限问题引起的，或者是在文件夹destionation上缺少反斜杠。在检查我的权限并检查文件夹路径后，我仍然无法使其工作。