Italian Eliminare files da Googledrive

[Fulvio75]

Ciao a tutti, sapete dirmi come eliminare i files da Googledrive?
In Googledrive.bas non esiste una funzione
Grazie

 

[Ibbiu]

Google drive tratta i files con un ID e non con il nome, quindi devi prima recuperare appunto l'ID per potere cancellare.

Questo codice prevede di avere tutti gli ID in una lista, per poi cancellare tutti i file

Sub Button3_Click As ResumableSub
    Log("Sub Cancella file")
    
    For tt = 0 To listaDel.Size-1
        id_file=listaDel.Get(tt)
        GD.DeleteFile(id_file)
        wait for GD_FileDelete(strRet As String)
        pb1.Progress=tt*pp
        Log("ID file  " & id_file & " " & strRet)
    Next
    Log("Finito...." )
    
End Sub

codice da inserire si GooleDrive.bas ( se non presente)

Sub DeleteFile(FileID As String) As ResumableSub
    
    Dim del_file As HttpJob
    del_file.Initialize("",Me)
    del_file.Delete("https://www.googleapis.com/drive/v3/files/" & FileID)
    del_file.GetRequest.SetHeader("Authorization", "Bearer " & myAccessToken)
    Wait For (del_file) JobDone(del_file As HttpJob)
    'Log("Cancellato= " & FileID)
    If del_file.Success Then
        CallSubDelayed2(evModule, evName & "_FileDelete", "{OK}")
    Else
        CallSubDelayed2(evModule, evName & "_FileDelete", "{ERR}")
    End If
    del_file.Release
    Return Null

End Sub

codice da inserire su HttpJob (se non presente)

Public Sub Delete(Link As String)
    req.InitializeDelete(Link)
    CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub

Spero possa aiutare......Ciao

 

[Fulvio75]

Google drive tratta i files con un ID e non con il nome, quindi devi prima recuperare appunto l'ID per potere cancellare.

Questo codice prevede di avere tutti gli ID in una lista, per poi cancellare tutti i file

Sub Button3_Click As ResumableSub
    Log("Sub Cancella file")
   
    For tt = 0 To listaDel.Size-1
        id_file=listaDel.Get(tt)
        GD.DeleteFile(id_file)
        wait for GD_FileDelete(strRet As String)
        pb1.Progress=tt*pp
        Log("ID file  " & id_file & " " & strRet)
    Next
    Log("Finito...." )
   
End Sub

codice da inserire si GooleDrive.bas ( se non presente)

Sub DeleteFile(FileID As String) As ResumableSub
   
    Dim del_file As HttpJob
    del_file.Initialize("",Me)
    del_file.Delete("https://www.googleapis.com/drive/v3/files/" & FileID)
    del_file.GetRequest.SetHeader("Authorization", "Bearer " & myAccessToken)
    Wait For (del_file) JobDone(del_file As HttpJob)
    'Log("Cancellato= " & FileID)
    If del_file.Success Then
        CallSubDelayed2(evModule, evName & "_FileDelete", "{OK}")
    Else
        CallSubDelayed2(evModule, evName & "_FileDelete", "{ERR}")
    End If
    del_file.Release
    Return Null

End Sub

codice da inserire su HttpJob (se non presente)

Public Sub Delete(Link As String)
    req.InitializeDelete(Link)
    CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub

Spero possa aiutare......Ciao

Ok grazie mille provo

 

[Fulvio75]

Google drive tratta i files con un ID e non con il nome, quindi devi prima recuperare appunto l'ID per potere cancellare.

Questo codice prevede di avere tutti gli ID in una lista, per poi cancellare tutti i file

Sub Button3_Click As ResumableSub
    Log("Sub Cancella file")
   
    For tt = 0 To listaDel.Size-1
        id_file=listaDel.Get(tt)
        GD.DeleteFile(id_file)
        wait for GD_FileDelete(strRet As String)
        pb1.Progress=tt*pp
        Log("ID file  " & id_file & " " & strRet)
    Next
    Log("Finito...." )
   
End Sub

codice da inserire si GooleDrive.bas ( se non presente)

Sub DeleteFile(FileID As String) As ResumableSub
   
    Dim del_file As HttpJob
    del_file.Initialize("",Me)
    del_file.Delete("https://www.googleapis.com/drive/v3/files/" & FileID)
    del_file.GetRequest.SetHeader("Authorization", "Bearer " & myAccessToken)
    Wait For (del_file) JobDone(del_file As HttpJob)
    'Log("Cancellato= " & FileID)
    If del_file.Success Then
        CallSubDelayed2(evModule, evName & "_FileDelete", "{OK}")
    Else
        CallSubDelayed2(evModule, evName & "_FileDelete", "{ERR}")
    End If
    del_file.Release
    Return Null

End Sub

codice da inserire su HttpJob (se non presente)

Public Sub Delete(Link As String)
    req.InitializeDelete(Link)
    CallSubDelayed2(HttpUtils2Service, "SubmitJob", Me)
End Sub

Spero possa aiutare......Ciao

Altra info.. per eliminare una cartella che ho creato?
Devo inserire il folderId al posto del fileid?

 

[Fulvio75]

Provato funziona con i Files e le Cartelle