使用VBS复制文件并将其上传到Sharepoint中

Question

我正在尝试对VB脚本进行编码，以从网络驱动器复制pdf文件并将其粘贴到Sharepoint中。

我已将Sharepoint网络映射到我的计算机，但是仍然无法正常工作。 我在互联网上搜索了很多解决方案，但到目前为止没有任何效果。

有人知道我的错误吗？问题出在我的道路上吗？ 谢谢

Dim FSO 
 Dim FromPath 
  Dim ToPath 
   Dim Datum

Datum = Format(Now() - 1, "mm-dd-yyyy")
ToPath = "\\share.\DavWWWRoot\sites\MySharepoint"
FromPath = "\Report_" & Right(Datum) & ".pdf"

Set FSO = CreateObject("scripting.filesystemobject")
FSO.CopyFolder Source:=FromPath, Destination:=ToPath

每次运行它时，都会出现以下错误：

  

Microsoft VBScript编译错误：预期语句