[Resolvido]Upload Direto Dropbox

boa tarde a todos

eu uso o exemplo desse link

https://www.maximoaccess.com/t29327-exemplo-download-direto-download-direto-dropbox


gostaria de sabe se ao inves de baixar tem como fazer q ele envia pra mesma pasta  do dropbox via codigo como esse ai de baixar

Olá Nadir,

O simples seria ter o aplicativo do DropBox instalado no computador a sincronizar uma pasta automaticamente.
Assim só teria que colocar ir colocando os ficheiros pretendidos para fazer o Upload e o aplicativo da DropBox fazia o resto automáticamente.

Se pretende via VBA, creio que terá que usar a API, veja se ajuda:
dropboxforum.com/t5/Discuss-Dropbox-Developer-API/How-can-i-upload-file-to-my-Dropbox-account-with-vba/td-p/306546
veroniquefrizzell.com/using-vba-with-dropbox-api/

Abraço

Código:

Public Sub DB_PutFile(FileName As String)
Dim req As MSXML2.ServerXMLHTTP60
Dim strFile As String
Dim Pos1 As Integer
Dim Pos2 As Integer
Set req = New MSXML2.ServerXMLHTTP60
Dim arg As String
strFile= ReadBinary(FileName)
arg = "{""path"":""/" & FileName & """,""mode"":{"".tag"":""overwrite""},""autorename"":false,""mute"":true}"
req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
req.setRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxx"
req.setRequestHeader "Content-Type", "application/octet-stream"
req.setRequestHeader "Content-length", Len(Result)
req.setRequestHeader "Dropbox-API-Arg", arg
req.setRequestHeader "User-Agent", "api-explorer-client"
req.send strFile

If req.Status = 200 Then

Debug.Print req.responseText

Else
'MsgBox req.Status & ": " & req.statusText
Debug.Print req.responseText
End If
End Sub

seria assim?

Olá Nadir,

Segundo o suporte do DropBox, essa será uma das formas.
Aproveito para informar que o "ReadBinary" é do Excel, vai ter que ajustar.
Além disso precisa de explorar a documentação da API.

"Mãos à obra\Toca a por a mão na massa".

Abraço

Tentei, Tentei mas ainda sem sucesso, nem as api consegui baixar

Olá,

Veja aqui, já testei e funciona.
mvp-access.com/foro/subir-archivos-por-vba-a-la-nube-con-dropbox_topic84478.html

Aqui como gerar um Token
99rabbits.com/get-dropbox-access-token

E não se esqueça das permissões


Abraço

Código:

Public Function Upload()
   Dim arg As String
   access_token = "y8bHalvyny8AAAAAAAAAAV-HCCOWhYi3pQYEm2b1Cup6d4WDyARp6WcRPviEED6C"
   result = FRB(CurrentProject.Path & "\C_41823022000139.dll")
   varfile = "\/TU_DIRECTORIO_EN_DRPBOX\/NOMBRE_Y_EXTENSION_FINAL_DEL_ARCHIVO_EN_DROPBOX"
   arg = "{""path"":""" & varfile & """,""mode"":""add"",""autorename"":false,""mute"":true}"
   Set req = CreateObject("WINHTTP.WinHTTPRequest.5.1")
   
   req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
   req.setRequestHeader "Authorization", "Bearer " & access_token       'Hay que poner el token de la aplicacion de dropbox en la variable
   req.setRequestHeader "Content-Type", "application/octet-stream"

   req.setRequestHeader "Dropbox-API-Arg", arg
   req.setRequestHeader "User-Agent", "api-explorer-client"
   req.Send (result)
   
   If req.Status = 200 Then
       Debug.Print req.responseText
   Else
       Debug.Print req.responseText
   End If
End Function

ta dando esse erro
{"error_summary": "missing_scope/", "error": {".tag": "missing_scope", "required_scope": "files.content.write"}}

Olá Nadir,

Está no bom caminho, é as permissões, coloque tudo write e teste

Abraço

andei pesquisando e fazendo teste e o erro ta aqui

varfile = "\/TU_DIRECTORIO_EN_DRPBOX\/NOMBRE_Y_EXTENSION_FINAL_DEL_ARCHIVO_EN_DROPBOX"

so que nao sei se vai pra pasta que tenho no dropbox chamada Serial

quero mandar esse arquivo C_41823022000139.dll pra pasta que ja tenho no dropbox

obrigado ahteixeira consegui

Olá Nadir, Parabéns!

Fico feliz por ter ajudado.
Obrigado pelo retorno, o fórum agradece.

Nota: Ajustei o título do tópico.

Abraço

bom dia ahteixeira

fiz algum teste e percebi que os arquivos q não ha alteração ele nao substitui, como posso fazer pra apagar os arquivos e enviar outro via api

Olá Nadir,

Deve ler o manual da API da Dropbox e verificar.

Abraço

Vc tem o manual?
ou onde posso obte-lo?

Olá Nadir,

Eu não, mas o website da dropbox tem uma parte de documentação.
Já tentou no google pesquisar "dropbox api manual"

Abraço

deu uma bela vasculhada no manual e achei isso

dropbox.com/developers/documentation/http/documentation#files-delete

bom dia ahteixeira to tentando fazer o codigo de exclusao de arquivo via api mas ainda nao consegui

esse e o codigo que to tentando fazer funcionar mas ate agora nada

Código:

Public Function ExUpload()
  Parametros_de_Long "EmpLong.jas"
Dim access_token As String
Dim req As Object
    TokenEnviado = ""
    DirExtensao = XCodLong & "Combustivel.env"
    Set req = CreateObject("WINHTTP.WinHTTPRequest.5.1")
    arg = "{""path"":""/Enviado/" & DirExtensao & " \}"
    req.Open "POST", "https://api.dropboxapi.com/2/files/delete_v2 \"
    req.setRequestHeader "Authorization", "Bearer " & TokenEnviado 'access_token       'Hay que poner el token de la aplicacion de dropbox en la variable
    req.setRequestHeader "Content-Type", "application/json"
    
    req.setRequestHeader "data", arg
    req.Send (result)
    
    If req.Status = 200 Then
        Debug.Print req.responseText
    Else
        Debug.Print req.responseText
    End If

End Function

Ola Nadir,

Não deve partlhar o seu Token, veja o que se pode fazer:

Código:

{"name": "upload_dropbox.txt", "path_lower": "/teste/upload_dropbox.txt", "path_display": "/TESTE/upload_dropbox.txt", "id": "id:Ca7-0FuJ0qAAAAAAAAAR-g", "client_modified": "2021-03-27T17:26:32Z", "server_modified": "2021-03-27T17:26:32Z", "rev": "015be87f326712a00000001a74bb870", "size": 53, "is_downloadable": true, "content_hash": "7bf29656b17f2c77e240a22ec4be3a1272e5cf8a8e7801e9a0f8fb87edf6055c"}


Fiz o teste e envia, deposi editei o txt e enviei novamente e atualiza, até enviei um ficheiro para a sua dropbox, vetifique
Nos meus argumentos tenho desta forma:
Aqui nos meus testes sempre que clico em enviar ele vai, como tem os seus argumentos, eu tenho assim

Código:

   arg = "{""path"":""" & varfile & """,""mode"":""overwrite"",""autorename"":false,""mute"":true}"

Abraço

nao entendi

esse arq

Código:

arg = "{""path"":""" & varfile & """,""mode"":""overwrite"",""autorename"":false,""mute"":true}"

e o mesmo que uso porem nao mudou nada

Ola Nadir,

Optimo, foi para confirmar se tinha o "overwrite".
No entanto o meu ao fazer novamente atualiza, nao preciso de eliminar.

Viu o ficheiro txt que coloquei na sua Dropbox, vou fazer novamente


Abraco