复制文件到指定文件夹时,出现拒绝的权限错误

    Set Fs = fso.GetFolder(FolderSpec)   '返回一个和指定路径中文件夹相对应的Folder 对象
    Set Fb = Fs.SubFolders          '得到根目录下的子目录，保存在FB中

  For Each Fl In Fs.Files   '读出根目录中的文件名

      fso.CopyFile "d:\\test\ggg.txt", strPath
  Next

如果直接复制到strPath="f:\"没问题,但复制到文件夹时,如strPath="f:\bak"就出现拒绝的权限错误