Italian Eliminare files da Googledrive

Fulvio75

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

Ibbiu

Member
Licensed User
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

B4X:
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)

B4X:
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)

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

Spero possa aiutare......Ciao
 

Fulvio75

Active Member
Licensed User
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

B4X:
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)

B4X:
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)

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

Spero possa aiutare......Ciao
Ok grazie mille provo
 

Fulvio75

Active Member
Licensed User
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

B4X:
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)

B4X:
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)

B4X:
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?
 
Top