如何将文件从一个 SharePoint 文件夹移动到另一个文件夹

Question

I need to move a file from one SharePoint folder to another folder after I click the approve button.

I am getting the error:

"user defined type not defined"

Private Sub Approve_Click()
  Dim sDocPath As String
  Dim sFileName As String
  Dim sTargetPath As String
  Dim sSourcePath As String
  Dim sDriveLetter As String
  Dim fso As FileSystemObject
  Dim net As WshNetwork

  sDriveLetter = "S:"
  sFileName = "WorkBook.xlsm"

  Set fso = New FileSystemObject & CreateObject("Scripting.FileSystemObject")
  sDocPath = ThisWorkbook.path
  ‘sDocPath = ConvertPath(sDocPath)

  Set net = New WshNetwork & CreateObject("WScript.Network")
  Debug.Print "Path to map: " & sDocPath
  net.MapNetworkDrive sDriveLetter, sDocPath

  sSourcePath = sDriveLetter & "\https:\\xxxxxOrder%20Form\" & sFileName
  Debug.Print "Source: " & sSourcePath

  sTargetPath = sDriveLetter "\https:\\xxxxxxxxxxxxxxxxxxx\" & sFileName
  Debug.Print "Target: " & sTargetPath

  fso.CopyFile sSourcePath, sTargetPath, True

  net.RemoveNetworkDrive sDriveLetter

  Set net = Nothing
  Set fso = Nothing

End Sub

Answer 1

You either need to add the reference "Microsoft Scripting Runtime" :

VBA Editor › Tools › References
^{More info see: https://trumpexcel.com/vba-filesystemobject/}

This method is called early binding and you can use it like below (inkluding intelli sense):

Dim fso As FileSystemObject
Set fso = New FileSystemObject 

Or you use late binding (without setting the reference) and without intelli sense then you need to use the code like below:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

but whit you did looks somehow like a mixture of both which cannot work:

Set fso = New FileSystemObject & CreateObject("Scripting.FileSystemObject")

---

Same for Set net = New WshNetwork & CreateObject("WScript.Network") wich must either use the reference "Windows Script Host Object Model" and:

Dim net As WshNetwork
Set net = New WshNetwork

or late binding and:

Dim net As Object
Set net = CreateObject("WScript.Network")