Sub MoveFile(FileID As String, AddFolderID As String, RemoveFolderID As String) As ResumableSub
Dim h_patch As HttpJob
Dim m As Map : m.Initialize
h_patch.Initialize("",Me)
Dim jg As JSONGenerator
Dim data() As Byte
m.Put("title", "Renamed11.txt")
jg.Initialize(m) 'Map zu JSON wandeln
data = (jg.ToString).GetBytes("UTF-8") 'in Datenstream wandeln
Log(BytesToString(data, 0, data.Length, "UTF-8"))
h_patch.PatchBytes($"https://www.googleapis.com/upload/drive/v3/files/${FileID}?addParents=${AddFolderID}&removeParents=${RemoveFolderID}&key=${Main.sToken}"$, data)
h_patch.GetRequest.SetHeader("Authorization", "Bearer " & myAccessToken)
h_patch.GetRequest.SetHeader("Accept", "application/json ")
h_patch.GetRequest.SetHeader("Content-Type", "application/json ")
'Log("PatchRequest")
Wait For (h_patch) JobDone(h_patch As HttpJob)
If h_patch.Success Then
Dim j As JSONParser
Dim Map1 As Map
J.Initialize(h_patch.GetString)
Map1 = J.NextObject
'Log("PatchCompleted: " & Map1.Get("id"))
CallSub2(evModule, evName & "_PatchCompleted", Map1.Get("id"))
Else
'Log("PatchCompleted: {ERR}")
CallSub2(evModule, evName & "_PatchCompleted", "{ERR}")
End If
'
h_patch.Release
Return Null
End Sub