Hello all,
For those may be interested to do the same, I solve my question.
So, as I understand it, initial threads and code snippet made by
fredo and
mw71 have been made long ago, and some parts are now obsolete.
(i.e. Class HttpJob and Service HttpUtils2Service initially provided in the thread can be removed and replace by Library OkHttpUtils2.)
OkHttpUtils2 allow use of member Delete in HttpJob.
So, new Sub can be added in class module GoogleDrive.bas
Sub DeleteFile(FileID As String) As ResumableSub
Dim h_delete As HttpJob
h_delete.Initialize("",Me)
h_delete.Delete("https://www.googleapis.com/drive/v3/files/"&FileID)
h_delete.GetRequest.SetHeader("Authorization", "Bearer " & myAccessToken)
Wait For (h_delete) JobDone(h_delete As HttpJob)
If h_delete.Success Then
CallSubDelayed2(evModule, evName & "_FileDeleted", "{OK}")
Else
CallSubDelayed2(evModule, evName & "_FileDeleted", "{ERR}")
End If
h_delete.Release
Return Null
End Sub
Hope it may help others, at least fix my problem