MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Upload Direto Dropbox

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 26/7/2020, 19:13

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 27/7/2020, 10:50

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 27/7/2020, 11:46

    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?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 27/7/2020, 15:13

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 21/2/2021, 19:29

    Tentei, Tentei mas ainda sem sucesso, nem as api consegui baixar
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 22/2/2021, 01:00

    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
    [Resolvido]Upload Direto Dropbox 0157

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 22/2/2021, 13:06

    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"}}
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 22/2/2021, 15:28

    Olá Nadir,

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

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 22/2/2021, 15:33

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 22/2/2021, 15:55

    [Resolvido]Upload Direto Dropbox Sem_tz10
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 22/2/2021, 17:58

    obrigado ahteixeira consegui
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 22/2/2021, 20:11

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 25/3/2021, 12:36

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 26/3/2021, 12:11

    Olá Nadir,

    Deve ler o manual da API da Dropbox e verificar.

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 26/3/2021, 12:21

    Vc tem o manual?
    ou onde posso obte-lo?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 26/3/2021, 12:34

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 26/3/2021, 22:32

    deu uma bela vasculhada no manual e achei isso

    dropbox.com/developers/documentation/http/documentation#files-delete
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 27/3/2021, 11:02

    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


    Última edição por NADIRONUNES em 27/3/2021, 18:18, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 27/3/2021, 17:36

    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 508
    Registrado : 30/08/2010

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  NADIRONUNES 27/3/2021, 18:17

    nao entendi

    esse arq

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

    e o mesmo que uso porem nao mudou nada
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Upload Direto Dropbox Empty Re: [Resolvido]Upload Direto Dropbox

    Mensagem  ahteixeira 27/3/2021, 20:03

    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

      Data/hora atual: 16/6/2021, 14:53